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LLL HI11111 NNN NNN KKK KKK EEEEEEEEEEEEEEE RRRRRRRRRRRR 

LLL III NNN NNN KKK KKK EEEEEEEEEEEEEEE RRRRRRRRRRRR 

LLL HI NNN NNN KKK KKK EEEEEEEEEEEEEEE RRRRRRRRRRRR 

LLL II] NNN NNN KKK KKK EEE RER RRR 

LLL 11] NNN NNN KKK KKK EEE RRR RRR 

LLL II] NNN NNN KKK KKK EEE RRR RRR 

LLL 11] NNNNNN NNN KKK KKK EEE RRR ARR 

LLL 11] NNNNNN NNN KKK KKK EEE RRR RRR 

LLL II] NNNNNN NNN KKK KKK EEE RRR RRR 

LLL II] NNN NNN NNN KKKKKKKKK EEEEEEEEEEEE RRRRRRRRRRRR 

LLL II] NNN NNN NNN KKKKKKKKK EEEEEEEEEEEE RRRRRRRRRRRR 

LLL II] NNN NNN KKKKKKKKK EEEEEEEEEEEE RRRRRRRRRRRR 

LLL II] NNN NNNNNN KKK KKK EEE RRR RRR 

LLL II] NNN NNNNNN KKK KKK EEE RRR RRR 

LLL 11] NNN NNNNNN KKK KKK EEE RRR RRR 

LLL 11] NNN NNN KKK KKK EEE ARP RR 

LLL II] NNN NNN KKK KKK EEE RRR RRR 

LLL 11] NNN NNN KKK KKK EEE _ RRR RRR 

LLLLLLLLLLLLLLL IIIIIIII1 NNN NNN KKK KKK EEEEEEEEEEEEEEE RRR RRR 

LLELLLLLLLLLLLLL III NNN NNN KKK KKK EEEEEEEEEEEEEEE RRR RRR 

LLELLLLLLLLLLLLL III NNN NNN KKK KKK EEEEEEEEEEEEEEE RRR RRR 
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LL NN NN KK KK III] MM MM GGGGGGGG 000000 UU UU TTTTT 
LL NN NN KK KK HII] MM MM GGGGGGGG 000000 UU UU TTTTT 
LL NN NN KK KK I] MMMM MMMM 6GG 00 00 UU UU T 
LL NN NN KK KK I] MMMM MMMM «GG 00 00 UU UU T 
LL NNNN NN KK KK I] mM MM OMA OGG 00 00 UU UU T 
LL NNNN NN KK KK I] MM MM MM «OGG 00 00 UU UU T 
LL NN NN NN KKKKKK I] MM GG 00 00 UU UU T 
LL NN NN NN KKKKKK I] MM MM GG 00 00 UU UU T 
LL NN NNNN KK I] MM MM GG GGGGGG 00 00 UU UU T 
LL NN NNNN KK KK I] MM MM GG GGGGGG 00 00 UU UU T 
LL NN NN KK KK I] MM MM GG GG 00 00 UU UU T coe 
LL NN NN KK KK I] MM MM GG GG 00 00 UU UU T cece 
LLLLLLLLLL NN NN KK KK III] MM MA GGGGGG 000000 UUUUUUUUUU T cece 
LLLLLLLLLL NN NN KK KK III] MM MM GGGGGG 000000 UUUUUUUUUU T cece 
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module ink_imgout 
(ident = ‘v04-000' 
-addressing_mode 
(external = general 
ghonexternal = [ong_relative 


begin 
i 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
tt ALL RIGHTS RESERVED. 


® 
& 
& 
t 
cs 
is THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
is INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
' t 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
i CORPORATION. . 

oe 

® 

& 

os 

& 

® 


't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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MODULE : LNK_IMGOUT 

FACILITY: LINKER 

ABSTRACT: Control production of image file 
HISTORY: 


VERSION: x01.00 
AUTHOR: T.J. PORTER 06-APR-77 
MODIFIED BY: 
v03-033 socees' nD. Eldri Goe 7-Aug-1984 
d support for CNESGL UNSUPPORTED. When the low bit 


7 set and we're building a shareable image then don't convert 
demand zero pages to copy on reference. his is done to get 
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aa Sep-1984 AX-11 Bliss-32 v4.0 Pa 

ive 1S3ep1984 00:00:24 YAH OL fag-52 ye, 0-74g a 2 
around a bug in the {nege activator ther does not know how 
to deal w shareable demand zero sections. 


= 
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aad 
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61 chen e number of ereto S bytes in all other blocks but the first 
6¢ n the imag qaheader 08 (was 512). This is done to avoid a 
o7 bug in the> Tacgerest? vator. 
65 xit LNKSWRTIMGBYTS immediately if the ‘repeat-count’ arguement 
$6 S$ zero. 
68 v03-033 ADE0010 Alan D. Eldridge 30-Jul-1984 
9 Use error ferurese by LNKSREQU STMEM rather than assuming 
£0 LINS_MEMF 
7 Change the number of os bytes in the first block of the 
7 saege peoter to 508 (fr - The last word of the first 
74 lock has a special meaning, and the second to the last word 
e s unusable due to a bug in the image-activator. 
8 v03-032 Jwr0189 Jim Teague 25-Jul-1984 
78 sitencates: demand zero pages in shareable images. 
v03-031 ADE000 Alan D. Eldridge 5-Jul-1984 


Add ag ee section page coun phen figuring the number of 
blocks in tne image portion of the image file. 


| 
Disallow demand zero peges in shareable images until sige 
effects (no symbol table at end of image) have been fixed. 


v03-030 ADE0008 Alan D. Eldridge 22-Jun-1984 
Adhere to Grammer Rules for ou put file spec's as defined 


in the Command Language User's Guide. 


Allow demand zero pages in shareable images. 


v03-029 ADE0007 Alan D. Eldridge 19-May-1984 
More fixes to V03-026. 

V03-028 ADE0006 Alan D. Eldridge tay | Mah 
Don't initialize header if there is none -- fix to 


update v03-026. 


v03-027 Apr 0008 Alan D. Eldridge 16-May-1984 
Allocate maximum sized block to store List of shared, 
local, and based ISD's. 


v03-026 ADE0004 Alan D. Eldridge 88-May-1984 
Fix image header construction when image header is longer 
than one block. 


v03-025 Jwr0180 26-Apr-1984 
Fill in SHL$B sui "Bie" Yeld in first shareable 
image list entry.” 


v03-024 ADE0003 Alan D. Eldridg 26-Mar-1984 
Default .EXE device and directory based on whether the /EXE 
in the command was a command or input parameter qualifier. 
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v03-023 apeogee Alan D. Eldridge 25-Mar-1984 
io th entry to transfer vector array for initializing shared 
mages. 


v03-022 ADE0001 
Make ge 
the h 2 
sharea 


Alan D. Eyer rene 35-Mar-1984 
youl t GSMATCH is created with high bit clear since 
h bit set now means to skip the date checks for 
le images and the corresponding Library entry. 


Fix bug which Limited shareable image name lengths 
to 30 instead of 31 characters. 


v03-021 JwT0153 Jim Teag 
Remove restriction impos 
image name field. Now 4 


ue 8-F eb-1984 
ed 7 JWT0131. Use expanded 
bytes: 1 for count, 39 for 


Make uninitialized em tts image sections demand-zero 
even if smaller than DZRO_MIN. 


v03-013 JwT0050 Jim Teague 11-Aug-1982 
Place $3 saoge flag in final word of first Voape header 
= e. 


DONO UE WN $0 OONOUES WN $0 ODNOU EWN $O ODNOUVUE WN" OVDONOu 


ile name. 
vO3-020 Jwr0131 Jim Teague 18-Aug-1983 
FTl restriction on 1ll-character shareable image 
names. 
v03-019 JwT0113 Jim Teague 20-Apr-1983 
; Do $getjpi calls to get number of open files left. 
4 4 vO3-018 Jwr0088 Jim Teague 12-Jan-1983 
: : Filter O-length psects out of DMT. 
4 4 v03-017 Jwr0078 Jim Teague 15-Dec-1982 
: : Change implementation of DMT. 
4 4 VO3-016 JWwT0077 Jim Teague 13-Dec-1982 
2 2 Slight ECO to Jwt0074. 
4 4 vO3-015 JwT0074 Jim Teague 09-Dec-1982 
3 ; Finalize Debugger DMT. 
2 5 v03-014 Jwr0055 Jim Teague 15-Sep-1982 
5 
5 
3 
; : block if IMAGE_TYPE=CLI specified in options fi 

60 VO3-012 JwT0044 Jim Teague 30-Jul-1982 
o Open file performance boost. 

88 v03-011 JwT0038 im Teague 23-Jun-1982 


Clean up INFO#212 error. Also change SEXPREG calls to 
LNKSREQUESTMEM which will make the calls with better 
error hanndling. 
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! FUNCTIONAL DESCRIPTION: 


This aoe? contains al! routines associated with image output. 
It contains the following externally called routines: 


LNKSWRTIMGHDR No arguments 


Processes the singly Linked List cf image section 


Pesectoters. building the image header with all its 


LNKSWRTIMGBYTS (BYTECOUNT ,BUFFRADR,REPTCOUNT) 


! 

i 

i 

i 

! 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

1 

! Writes ‘‘BYTECOUNT’ bytes from ‘BUFFRADR' ''REPTCOUNT'’ 
! times and updates the Linker's location counter by the 
total number of bytes. If REPTCOUNT or BYTECOUNT is 
' 
i 
i 
i 
' 
! 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


CONOAVE WN O OONOUS WOO 


zero, then exit immediately. 
Attempts to write a byte stream, ory part of which falls 
outside the space allocated to the image produces an 
error and the value false is returned. 

LNKSFLUSHIMG No arguments 


Writes every block of image, ensuring that those not 
touched heretofore are zero filled. 


a a ae 8d ot od 6 = 
Mw 


LNKSCLOSIMGFIL No arguments 
Closes the image file. 


ANY OF THE ABOVE ERRORS TURNS OFF IMAGE PRODUCTION 
(BIT LNKSS_IMAGE IN LNKSGL_CTLMASK). 


wn 
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| 
| 
| 
LNKSIMGINIT No arguments 
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08 
9 yi S 
1 11 iibrar 
8 1 J "LIBL32'; ! SYSTEM USER DATA STRUCTURES 
14 1 require 
15 1 a "PREFIX': 
rar 
Hi i y sDATBAS': | INTERNAL DATABASE 
require 
19 32 . *ISGENC': ! IMAGE SECTION FORMATS 
, a shai <4 ye l ' CLOSE ROUT! 
NKSC LOS IM : movalue, 
§ at ncharates” ; Revslus. i ROUTINE THAT ACCUMULATES HEADER SIZE 
$e Shih PGmrreMMutSDeEETS Tora 
fal 
6 722 ink$getfixsize, i COMPUTE SIZE OF FIXUP SECTION 


mon +2 
m 
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LNK 
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SSN NNN NNN NNN 


pt a a a 


SN NNN 


DPD E™ B™ BS BY BE BEE WWII WII Irononorononon) 
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oe me 
ee ee ae ee ee a ee a a el ec el cl el a 


— 
ARO 
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storespcgfix, 
inkScreatetix, 

readsection : novalue, 
writesection; 


external routine 

Lnk$closefile 
ink$requestmem, 
LibStraverse_tree, 
ink$filnamdsc, 
Lnk$alloblk 
ink$dealblk 
ink$allovirmem, 
ink$crefixisd, 
ink$sortisects 
ink$search; 


: novalue, 


: novalue, 
: novalue, 


: novalue, 


external Literal 


external 
ink Sot unsupported 
ink$gl_filesleft, 


ink$ol~datbuf fer 
ink$gl_dmtbytes, 
gl_minva, 
gl_tastgadr, 
l_spcgfix, 


$ 
$9 
$gl_spcgimgs, 


_fixis 
$gl_lowclu 
k$aw_version 
ink$gt_sysver 
ink$gl_curomd 
ink$gl_curfil 


ink 
ink 
ink 
ink 
ink 
ink$ 
ink 
ink 
ink 
ink 
ink 
in 
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: bitvector (C], 


: vector (2), 


73:2 


8; 
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74 
NK IMGOUT .B52;1 (2) 
XUP_ DATA 
SECTION 
S FROM SHAREABLE IMAGES 
AN IMAGE 


0 E 
MAXIMUM FILENAME LENGTH 
Bit mask of requested ‘‘unsupported’’ options 


BUFFER FOR DMT 
SIZE OF DMT IN BYTES 

LOWEST ADDRESS VA ALLOCATED BY VMCTRL 
LAST SPECIAL G* FIXUP VA 

NUMBER OF SPECIAL G* FIXUPS 

NUMB F SHR IMGS REFERENCED BY 
SPECIAL G* FILXUPS 

.ADDRESS FIXUP REFERENCES 

HR S REF'D BY .ADDRESS 
ABLE IMAGES 

N THOSE IMAGEES 

N 


SCIC STRIN 
RENT OBJ MODULE DESCRIPTOR 
RENT FILE FOB 


LN} 
VvO0+ 


<r 
ER 
a4 


uw 


SNS 


MEA SO OONOUS WO 


oooono 


Ooo 


COOooououovoo 
Wwn— NO 


WIAA AAI AAAI 


SSHGSAE UN “SOON WY SOSNIAE WB OSRIERE WI ODS UMP ODS 
ed dd od td od SOOO 


WAIN Nononononononononds oO 


19 Od OD Cd Od Od Cd Cd 0d GD G9 Od OD OD OD Cd Cd OD Gd G9 GD CD CD CD OD INI SISSY 


Be Se Se Oe Ge Se Ge Se Be Se Se Se Ge Fe Be Se Se Se Se Ge Ge FH Ft He Be Se Se Se Se Se Se He Se Se G+ $e Se Se Se Se Se Ge Ss Ge Oe Se Se Ge Se Ge Se Se ee Se Se Se Ge 
SOOOCOCOOOCOOSOCOOSOSSOSOOOOSOOOCOOSCOOSOOOOOOOOOSOO OOOO OOOO OOO OOOO OOOO 


ee ee a ee em ed ed dd od ed 8 8 wd dd td dd dt 


ink$ol curpsc 
ink$gl_inrelnam, 
Lnk$gl_relnam_exe, 
ink$gb_locnov_exe 


gi 
Lnk$gl 
inksot 


ink$gl_dbgttr. 
ink $ov. 9s recs 
ink$gl_tfrpsc, 
ink$gl_tfradr, 
Lnk$gq_alostim 


ink$gt_imgid 
Lnk$gw_chans 
ink$gw_dzromin 


ink$gw_ioseg 
ink$gw_misects 
ink$gw_nisects 
ink$gw_shriscts 
ink$gw_nsymbols 
ink$gw_lsymbols 


ink$gl_gsbufdsc 


ink$gl-dstiocn, 
ink$gl_dstend, 
ink$gl_rprotisd, 
ink$gl_shrclstrs, 


dmtblks, 


1384 99:00:48 AX-11 Oh tage 52 ure 2:1 Page 6 


: ref block C,bytel], 


oe of ef 


byte 
block C.bytel, 
: ref block (,byte], 
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: byte initial (%x'FF*) 


0 LINKER.SRCJLNKIMGOUT 
URRENT PSECT DESCRIPTOR 
INPUT FILE NAM BLOCK 
XE RELATED NAM 
F /EXE WAS 'LOCAL® WITH NO VALUE 


DRESSED CLUSTER 


RIPTOR BLOCK 
N PASS 1 
DEBUGGER 


oO 


zn 
Og 


st OF IMAGE 


—POUMDT BDWNOoxXS 


0 
ection REQUIRED IN I-SECT BEFORE 


=z 
xESEE>> 
= 
mam 
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z= 
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; N 

! NUMBER OF PAGES OF IMAGE 1/0 SEGMENT 
! MAXIMUM NUMBER OF TIONS 
! ACTUAL NUMBER OF 


IMAGE SECTIONS 
NUMBER OF ISECTS FROM PIC SHAREABLE IMAGES 


i NUMBER OF GLOBAL SYMBOL 
i NUMBER OF GLOBAL SYMBOLS IN THIS IMAGE 


! __(NOT_IN SHR I 
! DESCRIPTOR FOR COPYING GLOBAL SECTIONS 


GE FILE RECOR 
POINTER TO IMAGE 
CURRENT ISD ADDRESS 
MAPPED ADDRESS AT TOP + 1 
CURRENT LOCATION COUNTER 
NEXT LOCATION IN DST 
END OF DST WRITTEN 
NUMBER OF SECTIONS TO REPROTECT 
NUMBER OF SHAREABLE IMAGE CLUSTERS 
(PIC AND NON-PIC) 

ER OF CLUSTERS CREATED 
VBN AT WHICH DST BEGINS 
BLOCKS IN IMAGE HEADER 
BLOCKS OF IMAGE | 
IF OF IMAGE FILE | 

ER OF BLOCKS OF DST 
VBN OF GLOBAL SYMBOL TABLE 
MATCH CONYROL ID FOR THIS SHAREABLE IMAGE 
! MATCH CONTROL FLAGS 
DMT SIZE IN PAGES 


} 
LNI 
- 4 AX-11 Bliss-32 V4.0-74 Page | 
vives ta ii 3007138 99: 98: $3 LINKER. SRCILNKIMGOUT .B 2:1 oad vO 
! VBN OF DMT IMAGE SECTION 
, j - , CTIONS OF SHAREABLE IMAGES 
eR] ge te vce baie tig nora ffamine ees 
: ti re ; shr ingé Lu : ref block C, seaale be ete IMAGE 
: 349 r Stautter’ ; PTOR FOR DST GENERATED 
# So pase :wecter (3). BULETSHESRIION Eon reg 
: 3 cz} pooger .wene : initial i RUNNING HEADER OUPUT POINTER 
: 928 8 ts | poager th : initial i ACCUMULATOR FOR IMAGE HEADER = STARTS 
; rH ase 1 neeeer ates ; tikaee pica : | INCLUDING FIXED PART, ACTIVATION PART 
: 47 1 Literal 3 
5 ie i saat hiatal ~:,— Uihee sal yard habs tenntal meaning and the secon 
; 38 0850 i i and the second te the last wo word can *t be used due 
: ' toa mage-ac 
e235 . i OT FINGT BLOCK OF HEADER 
; $56 oBe3 i peed am ete 1 va Ears i at Be used due to a bug in the 
: ! jmage-acti 
Baee | 2 : i YTE COUNT 
; 338 0855 1 tfrlength = 5120; i MAXIMUM TRANSFER BYTE 
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2.00 C9 CD 0D OD CD 0D OD 0D CD OD 0D 00 C9 LO. 0D 0D C0 CD CD OD. OD: 


me 


if .lnk$gb_locnov_exe 
then. imgfab™ 

else imgfab Cfab$v_ofp] = 
auxfnb Cnam$t_rif) = 


if Sparse (fab = imgfab 
then begin 


then be 


then b eg n 
on $gt_imgid 


Si; 


end ; 


if not a Laks t_ctlmsk C 
then eat ctlmsk 

or "ink Sql ctlmsk 
then 


) 


oe imgnam (0) = 
ch$move (.lnk$gt_ imgnam C0J 
oe @Ux fnb- 
5 ink$gt_ imgnam (1) 


ch$move roe ink$gt_imgid 
» aux fnd™ 
ink$gt_ 


end ; 
ch$move (dsc$c_s_bin, ink$filnamdsc (imgfab), 


M10 
4 


fab$v_ “5 tp) = false 


true ; 


-lnk$gl_relnam_exe ; 


Lnk$gt_ imgnam (0) eql 0 


-auxfnb Cnam$b_name) ; 
nam$\_name] 


end ; 
{nk sot. imgid [0] eql 0 


0] = bux inh Cnam$b_type] ; 
insta Ti 


nk$v_s 
ink$V_ 2 aged 
ink$v_dbg 


ar dstend =0; 


16-Sep-19 70 
1 8ep- 1980 19:40:86 
giobal routine Lnk$Simginit : novalue = 
regia 
THIS ROUTINE IS CALLED TO INITIALIZE THE IMAGE GENERATION 
bind 
OR, = (nk$gl_imgfil Cfdb$t_auxfnb] : block Cnam$c_bln, byte] ; 
status, 
mgfab : block Cfab$c_bln, byte] ; 
$fab_init (fab = imgfa ! 
efns = .Lnk$ Sot. imgfil Cfdb$w sith 
etna = .Lnk$ gui imgfil Cfdb$l-usrnamadr 
,dns = (if .[nk$g "tee exe 
then icharcount (°.EXE' 
‘vied Zcharcount (' $¥8$D1SK:C.EXE") 
-@na = (if. Lnksab_to are exe 
then uplit (byte ('.EXE")) 
olee uplit (byte (*SYS$DISK:C).EXE")) 
man = auxfnb 


Lnk$gl_imgfil Cfdb$q_filename]) ; 


! INITIALIZE THE FAB 


! INITIALIZE END POINT AT START 


LNI 
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! NAME THE NAM BLOCK 


USE ‘OUTPUT FILE PARSING’ UNLESS 
/EXE WAS A LOCAL QUALIFIER 
WITHOUT A SPECIFED VALUE 

SET RELATED FILE NAME ADDRESS 
PARSE THE FILENAME 

NEED AN IMAGE NAME? 


SET LENGTH OF FILENAME 
AND MOVE IT IN 


NEED AN IDENT? 


FIGURE THE LENGTH 
AND MOVE IT IN 


IF NOT A SYSTEM IMAGE, 
AND TRACEBAC 
OR DEBUGGING ENABLED, THEN 


N 10 
LNK_ T 16-Sep-1984 00:00:24 A 
y0ez000 12786571382 99:28:85 HE 
; 418 913 dstvirto = (, ink$ L_dbgestim or 511) +1; ! 
: 419 914 [nkSgl.detlon 26s i 
; $20 915 ; atus = Lnk requestmem (.dstvirtop/512, dstbuffer) ; ! 
; 421 213 ~~" Ss atus } 
; 4 § 7 4 then begin ! 
3; 4 318 4 ink$gl_ctlmsk Clink Sy jngoe] = = fats se ; ! 
> 424 919 4 signal” (. status, 0, Tin$_noimgfil) ; ! 
; 425 920 4 return ; ! 
3; 4 8 921 end ; 
: 258 358 stind 
: 629 03 4 if (.ink$gl_ctlmsk Clnk$v_sys] and .ink$gl_ctlmsk Clnk$v_s sheadr] 
3 ? . 34 5 then Lnk$ kS oun misects = 0; ’ . 
: a3 09 5 if .tnk$gl -sbufdsc C0] neq 0 ! 
; $37 928 then if not (status = [akSrequestece (. ink$gl_gsbuf aoe £93 : 
3; 4 929 ink$gl—gsbufdsc : 
: 435 930 j 
; 436 $33) then begin ! 
; 437 936 $gl_ctlmsk elagty image) = false ; ‘ 
3 438 093 signal” (.status, 0 » Tins $_noingfi il) ; ! 
; 439 0934 return ; ! 
3; 440 0935 end ; 
3; 441 0936 return 3 
; 442 0937 lend; 
-TITLE LNK_IMGO 
IDENT \V0%-000\ 
-PSECT S$PLITS.N 
45 58 45 ef 00000 P.AAA: .ASCII \.EXE\ 
45 58 45 2€ 5D SB 3A 48 53 49 44 24 53 59 00004 P.AAB: .ASCII \SYSS$DIS 
-PSEST $OWNS,NO 
00000 pei -BLKB 4 
00004 DMTVBN: .BLKB 4 
01 00008 CARY NGRAB: m4 
44 00008 -—BYTE 68 
6000 OOOA WORD 
$890000 90015 tone 
1 LONG 
0000000 00014 . LONG 
Babee 0018 WORD (3) 
0 dh » WORD 
0000000 0 . LONG 
00 4 «WORD 
§ -BYTc 
BYTE 
0 8 WORD 
0 A ~ WORD 
2090 f - LONG 
- LONG 
05900 00 4 LONG 
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INKER.SRC LINK IMGOUT. B52;1 (3) 


AND ADD THE sist TER at VIRTUAL DESCRIPTOR 
SET LOCATION yl | ferent 
ALLOCATE A BUFFER 


BUT IF IT FAILS 

DISABLE IMAGE PRODUCTION 
REPORT THE ERROR 

AND GIVE UP 


) 
! DISABLE IMAGE COMPRESSION 


IF ANY GLOBAL SECTIONS ARE TO BE COPIED 
THEN ALLOCATE A BUFFER EQUAL IN SIZE 

TO THE LARGEST ONE SEEN 

BUT IF IT FAILS 

DISABLE The che easel 


REPORT T 
AND GIVE UP 


UT 
OWRT ,NOEXE ,2 


K:CJ.EXE\ : 
EXE,2 


"1 
LNK_IMGOUT 16-Sep-1984 00:00:24 AX-11 Bliss-32 V4.0-74 Page 10 
e206 ease 1382 99:08:85 | eet eshes Tae McouT o%2;1 ve i 
000000 8 .LONG 
C "BYTE 
5 “BYTE 
E “BYTE 
O3F "BYTE 
sss 0 40 LONG 
090090 0 09 44 NG 
000000 00048 0 
O04C CURVBN: “BLK 
SHRIMGCLU 


00054 DSTVIRTOP: 
00058 DSTBUFFER: 
00060 HEADER vist 
00000000 00068 HEADER_PTR: Ri 
000000A8 0006C HEADER_ size: Ee 


> a 
i 
oO 
a 
oo ao f+ F£+& HLOOOCOOCOOCOO UWF 
Bete Se Se Ge Fe See 


»-PSECT $GLOBAL$,NOEXE,2 
01 00000 LNKSAL_IMGRAB: : 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 ‘ 
ONG 
LONG 
BY 
LONG 
a946 LONG 
0044 LNKSGL _TAGHDR: 


LKB 
00048 LNKSGL a 
0004C LNKSGL = BLKB 
00050 LNKSGL_LOCN:: 


Le] 
Ww 
w 


OOOCoCoCooooooocooo 
3 3 = 2OOO 
PDWEMO™MMOWOAOMO dS 

<= 

o 

wD 

J 


IEEE EES 
Ooo 

wm 

@o 

< 

“~ 

m 


fe le lo fale leo lololololola~) 


SOOCOOOOSSS 


o 
Oo 
2 
o 

- FF LF GOOOCOOCOCOCOCOCOCOCOOCOCOCOOCOCCoOooOn 


Be ee Se Oe Be Be BH Be Ge Oe Se Be Se Be Se FH Se Fe Fe Se Se Be Se Pee ee Se Se Se ee SH ee Oe Oe SH Se Se Se SH SH Se Se ee Se BH Se Se Oe Se Se Se Se ee FH Se Be Be 


Pape oye ie as Cee Ae ee mae Me ae a ree Ta ee Rd Ro 4) cahaee 2. “ghine eee Ge tae ee me. | 


" | 
LWK_IMGOUT 1h-$ep-1986 00:00:26 -VAKe11 BLise-32 v4.0-76 - 1 
WOuzbos— 12-08=1he 93:28:85 | enter sae siaghcour eS2-1 age od) 
-BLKB | 

00054 LNKSGL_DSTLOCN: : | 


~BLK 
00058 LNKSGL_DSTEND: 
0005¢ LNKSGL_RPROTISD: 
00060 LNKSGL_SHRCLSTRS: : 


Se a a 


-BLKB 4 ; 
00064 LNKSGW_NCLUSTERS:: ; 
-BLKB. 2 ; 
00066 LNKSGW_DSTVBN:: : 
-BLKB 2 ; 
00068 aaeneset 1 hs | : 
0006A LNKSGW_IMGBLKS: : | ; 
-BLK 2 : 
0006¢ LNKSGWIMGIFI:: : 
Q006E LNKSGW_DSTBLKS:: ; 
-BLK 2 | $ 
00070 cnet *t- : 
00072 -BLKB ‘ ; 
00074 LNKSGL_MATCHID: : ; 
FF 00078 LNKSGB_MATCHCTL:: : 
.BYTE =1 : ; 
ISD$C_SIZE== 88 ; 
HORSK—F ILLCHR== 255 ; 
IHD$K~SHR== 2 ; 
IHDSK"ACTIVOFF== 48 ; 
IHDSK-SYMDBGOFF== 68 ; 
IHDSK-IMGIDOFF== 88 ; 
IHDSK-PATCHOFF== 168 ; 
IHDSK-MAXLENGTH== 168 ; 
HDRSK~MINF ILU== 2 ; 
.EXTRN LNKSCLOSEFILE, LNKSREQUESTMEM ; 
“EXTRN LIBSTRAVERSE_ TREE ; 
~EXTRN LNKSFILNAMDSC, LNKSALLOBLK ; 
-EXTRN LNKSDEALBLK, LNKSALLOVIRMEM ; 
“EXTRN LNKSCREFIXISD, LNKSSORTISECTS | 
-EXTRN LNKSSEARCH, LINS CLOSEIN | : 
SEXTRN LINS_CLOSEOUT, LINS CONF IXMEM | : 
“EXTRN LINS-DBGTFR, CLINS_GETPTIERR | ; 
SEXTRN LINSIMEMFUL, LINS[NOIMGF IL F 
“EXTRN LINSTOPENIN, LINS-OPENOUT ; 
“EXTRN LINSOUTSIMG, LINS_OUTSIMGP ; 
SEXTRN LINSTREADERR, LINS-TFRSYS ; 
“EXTRN LINS"USRTFR, LINS QRITEERR F 
“EXTRN LNKSR_MAX_FELENAME_LENGTH | ; 
-EXTRN LNKSGC_UNSUPPORTED : 
-EXTRN LUNKSGL-FILESLEFT | ; 
-EXTRN UNKSGT-JPILST, LNKSGL_DMTBUFFER F 
“EXTRN LNKSGL-DMTBYTES : 
“EXTRN LNKSGL"MINVA, LNKSGL_LASTGADR ; 

J 


D 11 
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14-Sep- $e 99: 98: $4 LINKER. SRCJLNKIMGOUT.B32;1 9 35 v04 
-EXTRN LNKSGL ~SPCGFIX, LLNKSGL SPCGIMGS : 
-EXTRN LNKS$GL-ADREFS KSGL L_SHRADR F 
EXTRN LNKS$GL~SHRIMGS INR GC_SHRSYMS : 
-EXTRN LNKSGL— Sie KTR ; 
SEXTRN LNKS$GL “Pixie. LNK$GL_LOWCLU : 
-EXTRN LNKSAW” VERSION, LNaseT SYSVER ‘ 
-EXTRN LNKSGL_CUROMD, LNKSGL_CURF IL ‘ 
.EXTRN LNKS$GL-CURPSC, Luks INRELNAM : 
EXTRN LWKSGL-RELN : 
-EXTRN LNKS$GB-LOCNO EXE 3 
XTRN LNK $B PASS Veh GL_CTLMSK Fy 
*EXTRN $GL-CLULST, LNKSGL_CURCLU : 
XTRN theber “LSTCLSTR ; 
EXTRN LNKSGL-DEFCLU, LNKSGL_IMGFIL 3 
EXTRN CNKSEL~D BGESTIM : 
EXTRN LNKS$GL~ ~DBGTEPS. LNKSGL_DBGTFR ; 
EXTRN LNKSCU-GSTRECS. LNK$GL~TFRPSC : 
-EXTRN LNKSGL_TFRADR, LNK$GQ_ALOSTIM F 
XTRN LNK$GQ_-PRIVS, LNKSGT_T F 
TEXTRN LNKSGT-IMGID, LNKSGW CHANS 3 
N LNK$GW-DZROMIN, LNK$GW_IOSEG : 
EXTRN LNKSGW-MISECTS, LNKSGW-NISECTS ; 
EXTRN LNKSGW- cr§ ; 
EXTRN LNKS$GW_NSYMBOLS : 
~EXTRN LNKSGW_ MBOLS : 
“EXTRN LNK$GL~GSBUFDSC ; 
.EXTRN SYSSPARSE : 
.PSECT $CODES,NOWRT,2 ; 
OFFC 00000 ENTRY LNKSINGINIT, Save R2,R3,R4,R5,R6,R7,R8,R9,- ; 0856 : 
5B 00000000' EF 9 00002 MOVAB DSTVIRTOP, R11 : ; 
5a 000000006 60 9E 90009 MOVAB LNKS$GT_IMGID, R10 : : 
59 000000006 00 9€E 00010 MOVAB LNKSGT~IMGNAM, R9 : ; 
58 000000006 00 9€ 00017 MOVAB LNKS$GL™~ CTLMSK, R : : 
3E BO AE 9E 90018 MOVAB -B80(SPY, SP : : 
57 000000006 00 D0 00022 MOVL NKSGL_ mgr, R7 + 0862 : 
54 26 AZ 9E 00029 MOV B(R7), : ; 
00 6E 00 2c 999 D mMovcS #0, (sb)* #0, #80, S$RMS_PTR : 0879 ; 
6E 5003 8F 80 $09 5 MOVW #20683. SRMS_PTR ; ; 
16 AE 02 90 O003A MOVB » SRMS_PTRT22 : 3 
1F AE Q 9 6 : MOVB ns. * $RMS~ =PTRe +31 : ; 
38 AE D 4 MOVL SRMS~PTR*40 : ; 
C AE 10 A? 00 0046 MOVL RetRIO Ss shns PTR+44 : : 
51 000000006 00 9A 6 4 MOVZBL UNKSGB. *“LOCNOV_EXE, R1 : ; 
09 1 €9 0005 BLBC  ~=sR'1, 1$7 : : 
0 00000000' EF : 0 MOVAB P.AAA, RO : : 
4 c BRB 2$ : : 
50 00000000° gf 9 : 1$: MOVAB P.AAB, RO : : 
30 AE 9 p 65 2$: MOVL RO AAR us PTR+48 ; F 
4 AE oc A 0069 MOVE  12(k7), SRMS_PTR+52 : : 
1 €9 6f BLBC =—s«aR?'1,_-3$ : ; 
0 4 D0 MOVL #4. RO ; 3 
3 1 74 BRB 4$ : : 
50 F pO 00076 3$ MOVL #15, RO : 3 
| 


11 
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i azb0S 12-808-1 984 90:08: 5 LINKER. SRCILNKIMGOUT .B 2:1 
35 AE 0 29 79 4$: MOVB =e RO, $RMS_PTR#S3 
06 1 7D BLBC = R1. 5$ 
07 AE 0 A 0 BI C82 #32, IMGFAB+7 
07 AE 0 eg 5$: BISB2 #32, IMGFAB+7 
10 As 000000006 D0 A 6$: MOVE LNKSGL_RELNAM_EXE, 16(R6) 
000000006 g F FB 4 CALLS #1, SYSSPARSE 
63 52 § TSTB NKSGT_IMGNAM 
D ff A BNEQ 
9 3B ag 3 A MOVB 59(R6), LNKS$GT_IMGNAM 
0 A 000A MOVZBL LNKS$GT. IMGNAM, 
01 «Ad 4C B6 0 38 0A OVC3 RO, @76(R6), LNKSGT_IMGNAM+1 
A 0 AF 7$: 1STB LNKSGT_IMGID 
D ff 081 BNEQ $ 
6A 3c OD 0085 MOVB  60(R6), LNKSGT_IMGID 
50 A 9A 0008 MOVZBL LNKS$GT_IMGID, 
01 AA 50 B6 0 28 OOBA MOVC3 RO, a80(R6), LNKSGT_IMGID+1 
E DD O00CO 8$ PUSHL SP 
000000006 90 or F 900¢8 CALLS #1, LNKSFILNAMDSC 
1 000000006 00 p 00 ¢ MOVL LNKSGL_IMGFIL, R 
14 «Al 60 08 9000 MOVC3 #8, (RO), 20(R1) 
3B 58 03 £0 00005 9$ BBS #3, LNKSGL_CTLMSK, 12$ 
04 02 ABs 02 E0 90009 BBS #2. LNKSGL-CTLMSK#+2, 10$ 
ef 68 6 €1 O0DE BBC Hi: LNKSGL~CTLMSK, 11 
0 000000006 00 000001F F af £9 QO0E 10$ BISL3 ait LNKSGL DBGESTIM, RO 
00000000" EF 7C 000 CLRQ  LNK$GL_DSTLOCN 
04 AB OF 900F PUSHAB DST UFFER 
7E 6B 00000200 8F C7 O0F8 DIVL3 #512, DSTVIRTOP, -(SP) 
000000006 00 02 F 9010 CALLS #2, LNKSREQUESTMEM 
52 50 D 010A MOVL RO. STAT 
20 3¢ E9 001 BLBC STATUS, 14$ 
0B 68 03 £1 00110 11$: BBC #3, LNKSGL_CTLMSK, 13$ 
06 03 AB 01 €1 00114 12$: BBC #1. LNKSGL~CTLMSK+3, 13$ 
000000006 00 B84 00119 CLRW  LNKSGW_MISECT 
50 000000006 99 09 Our 13$: ROVE LNKSGL_GSBUFDSC. RO 
000000006 09 oF 091 8 PUSHAB LNKSGL_GSBUFDSC+4 
000000006 99 : i 91 6 CALLS #2, LNKSREQUESTMEM 
14 ; 13A BLBS STATUS, 15$ 
68 A 00130 14$: BICB2 #1 LNKSGL CTLMSK 
000000006 8F DD 00140 PUSHL #LINS_NOIMGFIL 
D4 0146 CLRL.  =(SP) 
52 DD O14 PUSHL STATUS 
000000006 00 03 FB OO14A CALLS #3, LIBSSIGNAL 
04 00151 15$: ET 


; Routine Size: 338 bytes, Routine Base: S$CODE$ + 0000 


if} } 
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Lobal routine Lnk$Swrtimgbyts (bytecount, buffradr, reptcount, pos, siz) = 


| 
Tals routine is called to write ‘"BYTECOUNT” bytes [ren “BUF FRADR'’ with | 
"REPTCOUNT’’ repetitions to the output mes od starti ae at — current 
locat Oe Le L Lyn. The location counter is updated | 

' 


BYTECOUNT *REPTCOONT 


a variable posit and size bit store. 


? 
J 
' 
' 
' 
' 
: If “'POS'* AND stile are non-null parameters, the call is assumed to be 
: on 
' 
; Any attempt to write outside the image causes an error. 

b 

l 


! SET 
return true ; ' AND RETURN SUCCESS 


; 1 ; 
3 1 $ 
; 1} : 
s 1! : 
: 1; : 
: 1! : 
3 1 $ 
3 1 $ 
3 1 PF 
; 1! : 
; ;? : 
; 1: : 
3 egin : 
; ocal : 
3 status, 5 
: storelolimit, ' LOWEST LEGAL OUTPUT ADDRESS : 
: storehilimit, ! HIGHEST LEGAL OUTPUT ADDRESS, ; 
$ storehiaddr, ! HIGHEST ADDRESS WE WILL OUTPUT TO ° 
3 bitstore, ! TRUE IF STORING VARIABLE POSITION AND SIZE ‘ 
3 partition, ' POINTER TO IMAGE PARTITION NAME (DS OR EX 2 
3 storeaddr ; ! OUTPUT ADDRESS : 
; builtin $ 
2 ap ; ; 
; bind 3 
; arglist = .ap : vector ; : 
; " os gente eat 0 ! IF ZERO BYTE COUNT : 
; -reptcoun 0 ! OR ZERO REPEAT COUNT : 
; or not .lnk$gl Pet lms Clnk$v_image] ' OR NO IMAGE TO BE PRODUCED : 
then return true ; ! RETURN DONE : 
; bitstore = .(arglist (0])<0,8> eql 5; ! DETERMINE IF VARIABLE BIT STORE : 
; storehiaddr = .lnk$gl_locn + .bytecount*.reptcount ; ' FIGURE HIGHEST ADDRESS WE WANT TO STORE IN : 
3 storelolimit = 0 ; ' LIMITS ARE INITIALLY 0 3 
$ storehilimit = 0 ; ! : 
3 partition = cstring(" image binary’) ; : 
3 if - Lnk$gl_¢ ctlmsk Clnk$v_dbgrec] ' IF THIS IS DEBUGGER DATA : 
; or .bit ' OR ITS A VARIABLE BIT STORE COMMAND : 
3 or not ens fai (cSt ind. afk - ch(.bytecount, .buffradr,0)) ' OR THERE IS A NON ZERO CHARACTER : 
3 or gd - inkeol curisd eql ! IF NO ISECT SET UP : 
; en fa 3 
; else if . oinkSel. curisd Cisl$l_bufadr] eql 0 ' OR IF NO BUFFER SET UP 3 
; 4 then b ' THEN WE ARE DONE 3 
; ? ink$gl_locn = .storehiaddr ; So THE LOCATION COUNTER : 
3 & en : 
3 else true ! NO NON-ZERO BYTES TO STORE : 
; ' BUT OTHERWISE OK 3 
3 then begin ' IT HAS BEEN TOUCHED BEFORE : 


: THEN WE ARE GOING TO WRITE IT TO THE IMAGE SECTION 


11 
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12-86-1382 99:08:83 LINKER. SRCJLNKIMGOUT.B52;1 
) Bag Ti Clink$v_dbgrec] i es Fgh ee A 
if. UnkSgl .curisd neq 0 if JrAce SECTION HAS BEEN 
i 


then be 
bind hdrisd = ink$gl_curisd Cisl$t_hdrisd] i LABEL FOR PART GOING TO HEADER 
i LOW LIMIT IS BASE OF ISECT 


»byte) 
! AND HIGH LIMIT IS BYTE BEYOND 


! IF WE WILL EXCEED IMAGE SE 
+. Lnk$gl_curpse Cpsc$l_length] ! AND PSECT EXCEEDS IMAGE SE 


! THEN WE MUST STORE AS SECT 
BYTES L 


55 
: 


~~ 
Sz 
Sz 


3 


SS3s33 


: block C 
storelolimit = .hdrisd Cisd$v_vpg] “ § 3 
storehilimit = .storelolimit + 

eherisd Cisd$w pagent Je512 3 
if .storehiaddr gtru -gtorenit mit 
and o take! curees bosest base 
ru .storehilimit 


Sean 


33 


9090900 00 09 09 Gd 09 09 C9 CD C9 0D CD. 09 SINISE NID DOO SIS 0D 0 09 0D 09 OD IDA AAI Ed 


then beg n 


00 ocal bytes2write, EFT TO WRITE 
00 curisd ; SAVED CURRENT ISD POINTER 
curisd = .lnk$gl_curisd CT D 


sd ; 
if .lnk$gl_locn gtru .storelolimit 
then begin 
while StanRot ser tae = .lnk$gl_curisd Cisl$l_nxtisdJ) 
neq 


do begin 
bind hdrisd = Iink$gl_curisd Cisl$t_hdrisd] : block C,byte] ; ! NAME PART FOR H 
storelolimit = .hdrisd Cisd$v veg ®9: ' COMPUTE LOW LIMI 

storehilimit = .storelolimit ? .hdrisd Cisd$Sw_pagcnt}*512 : | AND HI LIMIT 

vt sRterensener lequ .storehilimit then exitloop ; 

end ; 


wn 
> 
< 
m 
o 
mc 
>a 
z 
m 
z 
~ 
bess 
mn 
m 


. L 
! THEN FIND STARTING ISECT 
! WHILE THERE ARE MORE ISECT 


if .lnk$gl_curisd eql 0 then return false ; ERROR IF NO ISECT FOUND 
end ; ! FINDING STARTING ISECT 


FIGURE BYTES TO WRITE 
WHILE THERE ARE MORE TO DO 


WAAR POP POPIPOPONUNENY 2 2 2 St SS OS OS OS 


ay ypecur tte = .bytecount * .reptcount ; 
while .bytes2write neq 0 


wn 


do begin 
fetal roomleft, ' ROOM LEFT IN THE CURRENT I 
35 isdrept, ' REPEAT COUNT THIS ISD 
isdleft ; ' BYTES LEFT FROM NON-FULL R 


FIGURE ROOM LEFT IN IMAGE 
WHILE THERE IS ROOM IN THI 


FUPVSULUSUSVSIUSUSVSV SU SUSV SISAL SV STASIS SISSON 


FrUvw 
{SSeS 
WN — OC OONOUVUEWN “OO ONOUS WOO 


em ne ne ew eww fololaelolololololalolololololo) 
AAAI APO POP PINPININPDNINIPD 4 OO OO OO 


roomleft = .storehilimit - .lnk$gl_locn ; 
while .roomleft neq 0 


ee ee ee a ee ee ee ee a ed a ed ed ed ad aed ed = COO OOOCD 


a ee Le Lee 


034 and 
: Oee faa be jbytescurite neq 0 ' AND THERE ARE MORE BYTES T 
0 begin 

208 O39 isdrept = minu (,roomleft/.bytecount,.reptcount) ; ' FIGURE NUMBER FULL REPEA 
eee O38 bytesewrite = .bytes2write - .bytecount*.isdrept ; ! ADJUST BYTE COUNT 

o? O73 isdleft = .roomleft - .bytecount*.isdrept ; ' AND NUMBER OF BYTES LEFT A 
si a if .bytes2write eql 0 then isdleft = 0: ! NO PARTIAL BLOCK IF FINISH 
345 be if not Lnk$wrtimgbyts (.bytecount,.buffradr,.isdrept) ! WRITE THE FULL REPEATS 
331 pee then return false ; 

5 beg if .isdleft neq 0 ! IF THERE IS A PARTIAL WRIT 
5 then if not Ink$Swrtimgbyts (.isdleft,.buffradr,1) ! THEN WRITE IT OUT NOW 

384 3 then return false 

32 oh else bytes2write = .bytes2write - .isdleft ; ! ADJUST COUNT 
228 051 roomleft = .roomleft - .bytecount*.isdrept - .isdleft ; ! ADJUST THE ROCM LEFT TH 
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; rs ! § 4 end ; ! WHILE ROOM AND BYTES TO WR 
; 9 : : 4 ink$gl_curisd = .lnk$gl_curisd Cisl$l_nxtisd] ; ! LINK TO NEXT ISD 
; 6¢ 1056 begin 
3; 38 1 bind hdrisd = Lnk$gl_curisd Cisl$t_hdrisd] ! NAME PART GOING TO HEADER 
; 565 1 if .isdleft neq 0 ! IF WE WROTE A PARTIAL STRI 
; 208 1060 then if not Lnk$Swrtimgbyts (.bytecount-.isdleft ! THEN WRITE THE REST OF THE 
3 67 1061 ,-buffradr +.isdleft 
; re 1966 1 
: 76 1084 then return false ; 
: % 1968 H storelolimit = .hdrisd Cisd$v_vpg] * 9 ; ' SET NEW LOW LIMIT 
: 57 106 storehilimit = .storelolimit * ' AND NEW HIGH LIMIT 
3 re 1908 ‘ ehdrisd Cisd$w_pagcnt)*512 ; ! 
: end ; 
8 A | tA ° end ; ' BYTES2WRITE NEQ 0 
; 36 1078 6 ink$gl_curisd = .curisd ; ! RESTORE CURISD 
; 579 107 3 return true ; ' ALL DONE, RETURN SUCCESS 
; 580 1074 end ; i EXCEEDING IMAGE SECTION 
; 38) 4 2 end ; ' POSITION TO WRITE BYTE STR 
: on 1077 4 if .lnk$gl_curisd neq 0 
>; 384 1078 5 then begin : 
: #4 4 2 bind hdrisd = Ilnk$gl_curisd Cisl$t_hdrisd) : block C,byte] ; 
: 587 1081 5 if > ink$ol cur isd Cisl$l_bufadr] eql 0 ' IF A BUFFER HAS NOT YET BEEN 
; #588 1088 5 and .hdrisd Cisd$w_pagcnt] gtru ! AND ISECT IS NON-NULL 
; 589 1083 6 then if not (status = Lnk$requestmem (.hdrisd CisdSu_pegents ! ALLOCATED, EXPAND MY PROGRAM REG 
; re 3 ° 5 ink$gl_curisd Cisl$l_bufadr] 
; 39¢ 1086 ‘ then begin ! BY SIZE OF I-SECT BEING WRITTEN 
; 59 1087 6 pineal s.9tesup 0, Lin$_noimgfil) ; ! REPORT THE ERROR 
: 394 1088 6 ink$gl_ctlmsk Clnk$v_image) = false ; i SPACE AND TURN OFF ANY MORE 
3 232 i 6 return true ; ' ATTEMPTS 
° en > 
3 338 1092 stereaddr = .ink$gl_curisd Cist$l_bufadr) ; ' START STORE ADDRESS COMPUTATION 
3 en 
; 599 1093 4 d 
; 600 1094 4 else begin ! BUT IF IT IS THE DST BEING WRITTEN 
; 601 1095 4 storelolimit = 0; ' THEN LIMITS ARE THE BASE AND TOP OF 
; one 18 ? storehi Limit = -dstyirtep : ore a IF IT WERE MAPPED INIO THE EXE 
3 ar on = cstring(‘Debugger Symbol Table’) ; ! 
; 604 1998 4 Stereaany = .dstbuffer bugas , ' START COMPUTATION OF ACTUAL STORE ADDRESS 
; 605 1099 end ; 
; 606 1191 end ; 
; 608 11 § if .lnk$gl_locn lssu .storelolimit ' IF LOCATION COUNTER 
: $609 BF t or .storehtaddr gtru .storehilimit ! BEYOND IMAGE 
; 610 11 then begin ' ALLOCATION, ISSUE AN 
; 611 1105 if .lnk$gl_curpse eql 0 i IF PSECT NOT AVAILABLE 
: o1¢ i} then signal CUind outs ing, oe lnk$gl_locn, ' ERROR AND GIVE UP 
; -par 
; 6614 1108 ink$gl.curond omd$b_naming 


tion, .storélolimit -storehilimit, 
| 


2 
x 


<r 


a i in a it a nt th at a ts ss Sh SS 49. Ss) 4 Ss 4 SH 2 SH 4 
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LINKER. SRCJLNKIMGOUT.B52;1 


; 615 1109 Lnk$glcyrfit EfdbSq._filename].linS_noimgt it) 
; 218 1319 else signal CLinS outs inge »elnk$gl_lotn ' ERROR AND GIVE UP 
; 61 111 -partition,.st retol mit,.storehilimit, 
; 618 1118 ink$gl_curpse Cosc$b_nam(ngJ, 
; 619 111 ink$gl_curomd Lomd$b_namingJ, 
: 620 1114 ink$gl_curfil fdb$q_filename],lin$_noimgfil) : 
: 621 1115 Lnk$gl_ctlmsk Clnk$v_image) = false ; T TURNING OFF ANY 
3; 6 g 1338 return false ; ! MORE ATTEMPTS 
; 6 111 end ; 
> 624 1313 
; 625 111 if .bitstore ! IF VARIABLE BIT STORE 
; 6 § 1120 then begin 
3 6 1121 bind imagebuf = .lnk$gl_curisd Fist bufedr? : block C,byte] ; 
: ° : +3 ¢ map buffradr : ref block C,byte] ; 
: 630 1124 imagebuf C(.lnk$gl_locn-.storelolimit), .pos, .siz, 0] = .buffradr ; ! DO THE BIT STORE 
; 631 1125 return true ; 
Seis 8 kok 
: ote 1 : storeaddr = .storeaddr + .lnk$gl_locn - .storelolimit ; ! COMPUTE MAPPED 
; 636 1130 2 incr i from 1 to .reptcount ! LOOP, MOVING THE REQUIRED BYTES, 
3 oat 1 1 do storeaddr = ch$move(.bytecount,.buffradr,.storeaddr) ; i UPDATING THE ADDRESS 
; o73 1 $ ink$gl_locn = .storehiaddr ; ! UPDATE LOCATION COUNTER 
; 641 1135 if -lnk$gl_ctlmsk ClnkSv_dbgreed ' IF THIS IS A DEBUG RECORD 
3 ote 11 $ and (.lnk$gl_locn=1) otru .lnk$gl_dstend ! AND THIS IS NEW HIGH DST ADDRESS 
3 or 1} i then Ink$gl_dstend = .lnk$gl_locn ; 
: 645 1139 return true ; ! AND ALL DONE 
; 646 1140 1 end ; 
-PSECT S$PLIT$,NOWRT,NOEXE,2 
OC 00013 P.AAC: .BYTE 12 
79 72 61 6E& 69 62 20 65 67 61 6D 69 00014 ASCII \image binary\ 
15 00020 P.AAD: .BYTE 
6C 6F 62 6D 79 53 20 72 65 67 67 75 62 65 44 00021 -ASCII \Debugger Symbol Table\ 
65 6C 62 61 54 20 00030 
-PSECT SCODES,NOWRT,2 
OFFC 00000 ENTRY Lex svat ineevis. Save R2,R3,R4,R5,R6,R7,R8,- 
3 08 C2 000 SUBL2 #8. SP° 
4 AC OD 6 MOVL BYTECOUNT, RO 
6 ) BEQL 
oc AC D 3 TSTL REPTCOUNT 
1 13 BEQL 
5A 000000006 8 E 1 BLBC LNKSGL_CTLMSK, 4$ 
ps 1 CLRL 
05 6c 91 19 CMPB (AP), #5 
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LNK_JMGOUT 1b-Se -1984 00:24 AX-11 Bliss-32 V4.0-74 
v04= 1 ~300n 138% 99:08:86 LINKE®. SRCJLNKIMGOUT.B32;1 
1 1¢ BNEQ 1 
3 D If INCL a) 
04 Ag D 1$: MOVL. RO, BITSTORE 
53 5 o¢ A § 4 MULL3 REPTCOUNT, RO. R3 
6E 000000 “Fra§ é 9 MOVAB @LNKS$GL_LOCNCA3J, STOREHIADDR 
2 D CLAL STORELOCIMIT 
4 ps CLRL STOREHILIMIT 
5A 00000000" EF 9€ OVAB P.AAC, PARTITION 
52 000000006 00 \ 69 cr i EXTZV 0, #1, LNKSGL_CTLMSK+2, R2 
08 BC § way 4 ° te ete. Bd, nos BUFF RADR 
Vi fr 
1 0 0035 2s: TSTL = R11 
18 12 00057 BNEQ 5 
50 00000000' FF p 0059 OVE LNKSGL_CURISD, RO 
01BC 3 O08 BRW z6$ 
eR HE ARMS gary ko 
00000000° EF 6E 96 006A MOVL STOREHIADDR, LNKS$GL_LOCN 
03 43 e9 bore se; Bc Re, 6$ 
0190 3100077 BRW 25$ 
51 00000000' EF 00 07A 6$ ROVE NKSGL_CURISD, R1 
50 18 Al 9E 00083 MOVAB 24(R1), RO 
57 04 Ad 17 00 cf 00087 EXTZV #0, #2%, 4(RO), STORELOLIMIT 
57 57 09 78 0008D ASHL 4&9 STORELOLIMIT, STORELOLIMIT 
9 ey ia att 
54 50 7 C1 00099 ADDL3 STORELOLIMIT, RO, STOREHILIMIT 
54 6 D1 90090 CHL TOREHIADDR, STOREHILIMIT 
50 000000006 00 vO Bon MOVL NKSGL_CURPSC, RO 
50 18 AO 1¢ AO C1 000A ADDL3 28(RO)> 24(ROS, RO 
54 50 D1 OOOAF CMPL RO, STOREHILIMIT 
ofS 4A $8 7 Bett BS, 
58 1 DO 00087 8s: MOVL 1, CURISD 
57 00000000' Ff D1 OOBA CHPL NKSGL_LOCN, STORELOLIMIT 
1 00000000" EF D Oe) MOVL NK$GL_CURISD, R1 
00000000' # e) ‘ BOCA 98: MOV (Ri), CNKSGL_CuRISD 
3), 00000008 ET Be ObOpA movin SetRGIT RGU 
57 04 ag 3 00 ai DE EXTZV 40, #28, 4(RO), STORELOLIMIT 
5 57 9 78 O00E ASHE r STORELOLIMIT, STORELOLIMIT 
* 02 A i Es ROV UL (RO) R 
54 2 C 6 ADDL3 STORELOLIMIT, RO, STOREHILIMIT 
4 oF bt F CMPL TOREHIADDR, STOREHILIMIT 
00000000' PF DS fo 108: ore’ NK$GL_CURISD 
65 03 FF "  BNEG OS xs 


— 
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Page 19 v04 
TWKER SRO TLNgINGOUT. 68251 - 
aim Bac 93:20:83 «Een sresincimeoor. . 
1e-Sep- 1986 8: . * : 1038 
, BRW TES2WRI : 
OTH BD AEG! TE: BBE oyresy - 
Oe bolo? 188; Buea fas T, ROOMLEFT 1038 
- } BR CARSGL LOCN, STOREHILIMIT, + 1035 
1 SUBL3 - ; 
008 1 138 BEQL YTESZWRITE 3 1037 
emmanenten Se 1 Beat «98 EFT, RO : 
PH BP nary 2 
52 0 1 00120 BOVE. REPTCOUNT, RO ; 1038 
AC 4 1 1¢4 MOVL RE ISDRE * 1039 
ve A Dd 1¢6 $: MOVL SREPT R9, RO : 
5 oc au. 6 AS eyTESSURITE Gane 
: £2 00181 SUBS RO: ISLET *° 
5 é i 8 TSIL GYFESSURITE : 1043 
eat: ce 2 
13F ISDR 
SS BEY ore, ate HESUET | Ss 
wie a O16 CALLS. #8, LNKSWRTIMGBYTS ; 
4 FB O16 rE CTSOLEFT : 
014D TL F 
ee ct ae : 
Of pb Ootss PUSH TSDLerT. TS : 1049 
ln WOT CATS Re Lis SUnt Ineey : 1051 
: i G016p ate WT BY TESQURITE. i 1035 
FEAQ CF 3 £3 0016 L$ ISDLEFT: R6, URISD : 1057 
9 33 §§ Soles 188: S08 15$ RISD, LNKSGL_C : 1059 
pi i Bg ve: Bh, Hic cpaeoe tia. fo 
~~ s SDLEF ¢ 1068 
* EF 00000000 18 ¢1 001 TSTL 3$ : 106) 
wea : i a PUSH SBF FRADRLISOLEETI ; 
01 D 1 PU L3 LEFT ny inesyrs : 
08 "i 189 CALLS : : bes LIMIT ; 1066 
59 F : 3 ), STORELO IT ; 1068 
gorell aif if i 208: bat 13" STofgtotinir, gag : 
09 98 O01 rovzMe 2¢h2) a2 REHILIMIT ¢ 108 
3) 02 AZ 3¢ 001 ADDLS  STORECOLINIT, R2, STO £109 
1A : 
33 i \s anu RISD, LNKSGL_CURISD : 107 
we 181 218: BRE NK$GL_CURISD, RO ; 1079 
"EF 40 47 ootes * SO jae. 
00000000 ‘ F 9 1BA 22$: BEQL 4(RO), R1 
50 00000000 fF 9 1c} tye 
51 18 A 9E 


000000006 


000000008 


55 000000006 
51 000000006 


000000006 


51 00000000° 
61 14 «AC 10 
53 


08 
02 


nC 
18 
000000006 


00 


01 
50 eoneeens" 
0 


OB 


58 00000000" 


A 
" 
y 
i 
: 
3 
; 
i 
58 & 
i 
57 
54 454444 8 EF 
5A 00000000° EF 
58 00000000' EF 
2 00000000' gf 
; 
0 
54 of 
6 
00 14 
00 8 
50 000000006 : 
000000006 e 
& 
57 
0404 06 
000000006 8F 
' 
00000000G 8F 
» i 
54 
7 
0404 f 
000000006 8F 
00 A 
00 1 
6C¢ 
18 gs AE 
50 00000000' gF 
gf 7 
4 
i 
EF 
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(R 
FFRADR, POS, SIZ, (R1) 
LNKSGL_LOCN, STOREADDR, R3 


-Sep-1984 00:00:24 AX-11 Bliss-32 V4.0-74 Page 20 
=300 71383 99:00:45 MINRER SHELA INGOUT. B82: 1 . (Z 
TSTL (RO) ; 1081 
OEE Sta : 1082 
BEQL 4$ : 
PUSH (RO? + 1084 
MOVZWL 2(R1), =(SP) : 
ALLS We LNKSREQUESTMEM : 
PUSHL #LINS_NOIMGFIL + 1087 
CLRL. = (SP) : 
PUSHL STATUS : 
CALLS #3, LIBSSIGNAL : 
BICB2 #1, LNKSGL_CTLMSK > 1088 
3$: BRw ; 1089 
4$:  MOVL NKS$GL_CURISD, RO + 1091 
MOVL (RO), “STOREADDR : 
BRB 6$ + 1077 
25$:  CLRL §STORELOLIMIT + 1095 
MOVL DSTVIRTOP, STOREHILIMIT + 1096 
MOVAB P.AAD, PARTIT + 1097 
MOVL § DSTBUFFER, STOREADDR + 1098 
26$ MOVL LNKSGL_LOCN, R2 + 1102 
CPL R2, STORELOLIMIT : 
CPL TOREHIADDR, STOREHILIMIT + 1103 
27$ ADDL #20, LNKSGL_CURFIL, R5 + 1109 
ADDL3 #40. LNKS$GL~CUROMD, R1 + 1108 
move NKS$GL_CURPSC, RO : 1105 
PUSHL #LINS_NOIMGFIL : 1109 
PUSHR #*M<RT,R5> : 
PUSHL  STOREHILIMIT ; 
PUSHL STORELOLIMIT ; 
PUSHR #*M<R2,R10> F 
PUSHL #6 ; 
PUSHL #LINS$_OUTSIMG ; 
CALLS # { LTB$SIGNAL : 
28$:  PUSHL @#LINS NOIMGF IL > 1114 
PUSHR #*M<RT,R5> : 
PUSHAB 45(RO) : 1112 
PUSHL STOREHILIMIT : 1114 
PUSHL STORE OLIMIT ; 
PUSHR #*M<R2,R10> : 
PUSHL 7 3 
PUSHL aL INS OUTSIMGP F 
CALLS #10, CIBSSIGNAL F 
29$:  BICB2 #1, LNKSGL_CTLMSK + 1115 
BRB 5$ > 1116 
30$: BLBC  BITSTORE, 31$ + 1119 
MOVL. LNKSGL_CURISD, RO ; 113) 
SUBL TORELOLIMIT, LNKSGL_LOCN, R1 > 1124 


11 — ‘ : 
=3087 1383 93:28:45 LINKER’ SRe LARINGOOT 692: 31 eet vO4 


os 


voe200 


58 7 C3 C0 SUBL3 STORELOLIMIT, R3, STOREADDR ; 
Ri ste ikt te 
68 08 ,' é cB 32$ moves f. STDREADBR (STOREADDR) : 
F3 AC OF 09 33$ AOBLEQ ait OUN 328 ; 
00000000' FF p D MOVL STOREH nob” sik is LOCN : 11 3 
50 EF ono £3 O05eS ett, GAKSGL pg TLRDE 1136 
Maddie EF 0 ° i CHPL Ht tNKSCt act ie : 
00000000' EF 0 00000000' i 08 F MOVL LNKSGL LOCN, LNKSGL_DSTEND + 1137 
5h 1 20 0 rE 34$ MOVL ? > 1139 
D4 0303 35$ CLRL = RO + 1140 
04 00305 RET ; 


; Routine Size: 774 bytes, Routine Base: SCODE$ + 0152 


; 647 1141 «1 
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18. -$ep-1984 00:00:24 AX-11 Bliss-32 V4.0-7 Page 23 
14- =Sep -1984 1 93: 08; 5 LINKER. SRCJLNKIMGOUT. 8 2;1 . RS 
olnkSal. defclu Cclu$l ofstisd] p nea 9 ! 
then ink$gw_imgblks = .syshdrisd Cisd$w_pagcnt] ; ! GET THE BLOCK COUNT 
! ELSE, IF _NO ag hh OPTION (IGNORED EXCEPT 
T's - UnkSgb, matchctl eql tx'FF' i FOR SHAREABLE | IMAGES 
then be ' THEN FORCE A MATCH EQUAL 
Lnk$gb_matchctl = isd$k_mateq ' SINCE USER OPTED ot TO SPECIFY 
ink$gl_ “matchid = .lnk$gq_ alastin <16,31,0> ; ! USE THE MIDDLE 31 BITS OF LINK TIME 
end ; ! (default He bit pads be zero) 
Lnk$gl curclu = ink$gli_clulst ; ! START AT FIRST CLUSTER 
whi LectnkSgl_ curclu = c(nk$gl_curclu Cclu$l_nxtcluJ) neq 0! GO DOWN THE LIST 
uo 
lestcluster = (, phe es curclu eql .lnk$gl istclstr) ! SEE_IF THIS IS THE LAST CLUSTER 
not .ink$gl Lictlmsk. C (nk$v_ shr] ; ! BUT ONLY IN EXECUTABLE IMAGES 


previsd = InkSgl. curetu clusl reset 
while (Lnk$gl_ curisd = .previsd Fiat _Axtisd)) neq 0 ! WHILE THERE IS ANOTHER 


in 
bind. curhdrisd = Lnk$gl_curisd Cisl$t =périsd) meted ! NAME THE HEADER PART OF IT 
@ 
7 - inkSgl_ curisd eql .lnk$gl_ fixisd . i IF THIS IS THE FIXUP SECTION 
en be 
in Mo imgblks = .ink$gw_imgblks + .curhdrisd Cisd$w_pagcnt) ; } ADD IN wrt 
revisd = .lnk$gl-curisd ; VE TO NEXT 
—— procsisd ; ! AND DON'T Touci THE FIXUP SECTION 
J -curhdrisd Cisd$w_pagcnt] eql 0 ! IF ZERO LENGTH I-SECTION 
en 
Lnk$ - nisects = .lnk$gw_nisects - 1 ; ' DISCOUNT 
rev = .lnk$gl[curisd ; ! MOVE TO NEXT 
aaee “receied 3 ' AND SKIP THIS ONE 
if Sate, ctlmsk Clnk$v_protect] ! IF IMAGE IS PROTECTED 
or .lnk$gl~curclu Cclu$v~ protect] ' OR IMAGE IS PROTECTED 
or .curhdrisd Cisasv_ vector] ' OR ISECT IS A VECTOR ISECT 
then curhdrisd Cisd$v_protect] = true ; : THEN PROTECT THE IMAGE SECTION 


ve! 
IF THERE IS AN see SECTION 


if .lastcluster 
then curhdrisd Cisd$v_lastclu] = true ; 


if not .curhdrisd Cisd$v_dzro] 
and .ink$gl_curisd Cisl$l"bufadr] eql 0 
then if -curhdrisd Cisd$v “srt 

and not .curhdrisd \sdby gb 

and not (.ink$gl_ctlmsk teesy. shrJ 


and not 
-lnk$gl_unsupported (0) 


IF NOT ALREADY A DEMAND ZERO SECTION 
BUT NO BUFFER YET ALLOCATED 


AND NOT GLOBAL 
see TEMP DUE to IMAGE ACTIVATOR | BUG *t* 
Use CRF instead of DZRO if, we’ re buildin 
a shareable image and the ‘‘unsupported’’ 
D2RO option has not be selected 


then begin 

sulnarted isd$w “3378) = isd$k_lendzro ; ! THEN CONVERT WHOLE SECTION 

curhdrisd Cisd$v_dzro] = true ; ' TOAD 

cucnertes isd$v_crf] = false ; ' DISABLING POSSIBLE COPY ON REFERENCE | 

en 
else Hi ocurbdrisd Cisd$v_gbl] ' OTHERWISE, IF IT IS GLOBAL 

en begin 
oe9 -ink$gl_curclu CclLuSv_copy] ! AND THE CLUSTER IS TO BE 
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s res 1 $ § and not .curhdrisd Cisd$v_protect] ! COPIED INTO THIS IMAGE 
> 764 1 then beg n 
> 765 1258 7 ink$gl_curisd Cisl$l_bufadr] = .lnk$gl_gsbufdsc 2 i; ! SET THE BUFFER 
$ re8 : 23 inkSgtcurisd isl$l_bufend] = .lnk$gl-gsbufdsc [2] ; ! DESCRIPTOR 
3 en 
; 768 1261 7 else begin 
; 769 1 6 7 curhdrisd Cisd$l_vbnJ =Q; ! SET NO VBN 
; 770 1265 7 ink$gl_curisd Cisl$l_bufadr] = 0 ; ! AND NO BUFFER | 
3 mm 1264 7 ink$gl_curisd Cisl$l_bufend] = 
; 77 1265 6 end ; 
BR a: 1 96 6 end 
; 774 1267 6 else begin 
; 775 1268 6 local status ; | 
: 776 1269 6 status = (nk$requestmem (.curhdrisd Cisd$w pesents ! IF LOCAL SECTION, ALLOCAT | 
; aa 1270 6 ; inkSgl_curisd isT$l_bufadr] | A BUFFER OF ZEROES 
; 779 1 6 § if not .status 
; 780 127 then begin 
; «(781 iste 7 tignat (.status, 0, Lin$S_noimgfil) ; ! REPORT THE ERROR 
: 78 1275 7 ink$gl_ctlmsk C(nk$v_image] = false ; i DISABLE IMAGE PRODUCTION 
3; 1276 7 return ; ! AND GIVE UP 
> «784 1277 6 end ; 
3s 785 1278 5 end ; 
: 786 1279 5 
3; 787 1280 5 if .lnk$gl_curisd Cisl$l_bufadr] neq 0 ! IF THERE IS NOW A BUFFER 
; 788 1281 5 and ' AND SECTION IS TOO SMALL 
; 789 iste 6 ( -curhdrisd f {sdu_pagents lssu .lnk$gw_dzromin ! FOR COMPRESSION OR 
; 790 12835 6 or not .curhdrisd Cisd$v_wr ! IS READ ONLY OR WE 
; 791 1284 6 or -lnk$gw_nisects gequ .lnk$gw_misects ! HAVE EXCEEDED LIMI® ON ISD'S 
; 1285 6 ) ! THEN ADD THE SECTION | 
3 jak 1se6 2 then Lnk$Sgw_imgblks = .lnkSgqw_imgblks + .curhdrisd Cisd$w_pagcntj ; ! SIZE TO IMAGE 
3; 795 1288 5§ if -curhdrisd Cisd$v_dzro] ! IF SECTION IS STILL DEMAND ZERO 
; 796 1289 5 or not .curhdrisd Cisd$v_wrt ' OR IS NOT WRITABLE 
; 797 1290 5 or -curhdrisd Cisd$v_gbl ; ! OR THIS IS GLOBAL 
; 798 1291 5 or -curhdrisd Cisd$w_pagcnt] lssu .lnk$gw_dzromin ! OR THE SECTION IS TOO SMALL 
: 799 1538 5 or -lnk$gw_nisects gequ .lnk$gqw_misects ' OR WE HAVE ENOUGH OF THEM 
: 800 1293 6 or (.lnk$gl_ctlmsk Clink$v_shrJ 'ee TEMP DUE TO IMAGE ACTIVATOR BUG 
; 801 1$ge 6 and not ! Don't convert to DZRO if building 
; HS 1295 6 -lnk$gl_unsupported [0] ! a shr image and the ‘‘unsupported 
; 80 1296 6 ! DZRO option has not be selected 
; 804 1297 5§ then previsd = .lnk$gl_curisd ! WE ARE DONE WITH IT - THIS IS NOW 
; 805 1298 6 else begin 
3 B06 1299 7 do begin ' LOOP FOR CALLS TO PTI SERVICE 
; 80 1300 7 bind curhdrisd = Lnk$gl_curisd Cisl$t_hdrisdJ ! RENAME THE HEADER PART 
; 808 1301 7 : block C,bytel ; ! FOR POSSIBLE CHANGE OF CURRENT ISD 
; 809 P 1 O 8 if not (errorcode = Sortpes 
: 810 P 1305 8 C(inadr = Lnk$gl_curisd Cisl$l_bufadr] ! CALL SGETPTI TO FIND UNTOUCHED PAG 
; 811 P 1304 8 eretadr = emptydesc (0 ' TWO -LONGWORD RETURN ARRAY 
: aig P 1305 ; -acmcde = ' ACCESS MODE IS USER 
; «81 P 1306 smask == ' PAGES WHICH ARE DEMAND ZERO 
M3 P : 44 sPagent =. (nk$gw_dzromin ! MUST BE AT LEAST THIS MANY PAGES 
5 19 1309 then begin ' BUT IF AN ERROR RETURNED 
; «81 1310 signal Ci} tod potetiore 4 ' THEN TELL THE USER AND 
: 818 1311 -(nk$gl_curisd fistst_butadr i CONTINUE WITHOUT THE IMAGE 
; «819 1312 8 ,-ink$gl-curisd Cisl$l—buf 
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; 0 1313 ,-curhdrisd fis sd$v_v 
; 1 1314 »-curhdrisd Lisd$w_ pagen 
3 : ¢ : 1? -errorcode, 0 ,Lif eT 
: B26 1317 LnkSgl_ ctlmsk Cink$v image] = false ; ! DISABLE ANY MORE IMAGE OUTPUT 
3 : 5 : 18 ney urn; 
3; § - 1320 7 if cite {1} = enptyeoee C1] + 1) eql 0 ! IF WE DON'T HAVE ANOTHER EMPTY 
; Ss8 : er -<f «ln Sow nisects gequ nk$gw_misects ! REGION OR WE HAVE ENOUGH OF THEM 
3 en be 
3 HE 1 : : previ d = .lnk$gl_curisd ; THEN CURRENT aycones PREVIOUS 
3 $3 1324 ; ThkSgw. ingbiks = - Lnk$gw_ imgblks + .curhdrisd Cisdby pescnts D TO THE IMAGE 
; 83 ! ; 8 enptydesc = ‘0; NSORE END. OF Loop 
; 834 1327 | else rote ! IF WE DO HAVE ANOTHER . 
; 835 1328 local newisd : ref block f- ,bytel, | POINTER FOR NEWLY ALLOCATED ISD 
3 S39 ; $3 : newhdrisd : ref block C,byte] ; ! AND THE HEADER PART OF IT 
; 838 133) 8 ink$alloblLk Cisd$c -$1ze.newisd) $ ' ALLOCATE AN IMAGE pectin DESCRIPT 
; 839 13 ; 8 newisd Cisl$l_cludsc , ink$gl_ curclu ; ! SET CLUSTER DESCRIPTOR POINTER 
: 840 1333 8 newisd CLisl$l-bufadr] = : ! ZERO THE BUFFER ADDRESS 
; 841 1334 8 now ses isl$l"bufend] = ' QUADWORD 
; Bie 1335 8 newhdrisd = névisd sist Adrisd) ; i SET POINTER TO HEADER PART 
; 84 1399 8 newhdrisd f} sd$w_size] = TsdSk_ lendzro ; ! SET LENGTH OF DESCRIPTOR 
> 844 1337 8 newhdrisd Cisd$w_pagcnt) ; Ser SECTION SIZE IN PAGES 
; 845 1338 8 al emptydesc C1] = .emptydesc (03)/512 ; 
; 846 1339 8 newhdrisd Cisd$l_flags] = ' COPY THE CURRENT SECTION FLAGS 
3; 847 1340 9 (leur drisd Cisd$l_flags] or isd$m_dzro) ! AND DEMAND ZERO 
; 848 131 8 and not _isd$mcrf 3 ! CLEARING COPY on RE ERENCE 
; 849 1 ¢ 8 newhdrisd Cisd$v_pfc] = i SET THE PAGE LUSTER 
; 850 1343 8 i -curhdrisd [rsdSv_p protect) ! IF ISECT SHOULD Ube PROTECTED 
> 851 1344 8 then newhdrisd Cisd$v_protect] = true ; ! THEN DO SO 
3 $26 1345 8 
; 85 1346 8 ! 
; 854 1347 8 : THE IMAGE SECTION DESCRIPTOR FOR THE NEW DEMAND ZERO 
: 855 1348 8 : SECTION IS NOW SET UP. HOWEVER WE STILL tn - DETERMINE 
; 856 1349 8 ' THE BASE VIRTUAL ADDRESS OF IT AND THE REMNANT OF THE ORIGINAL 
; 857 1350 8 ; IMAGE SECTION. IN ot int 3 "UFFER ADDRESS OF THE BINARY 
; 858 1351 8 $ OF THE REMNANT MUST BE A 
; 859 1326 8 : AFTER THIS THE NEW ISD ts LENKED ONTO THE LIST OF ISD, IN 
3 500 1327 ; USER VIRTUAL ADDRESS ORDER. 
; o6¢ 1335 8 Zs -emptydesc [0] eql .lnk$gl_curisd Cisl$l_bufadr] ! IF THE EMPTY REGION IS AT 
; hen 
; Sei 1389 § begin ' BEGINNING OF THIS SECTION 
: $63 1328 9 previsd Ctaist pghatiog? = .newisd ' PREVIOUS ISD POINTS TO NEW 
3 1359 9 newhdrisd pis4 _vpg yrgurhdrisd Cisd$v_vpg] ;! ue NEW I-SECT IS 
: 867 1360 9 curhdrisd Cisd$w_pagcnt] = ! THIS ONES VIRTUAL ADDRESS 
: 868 1361 9 ocurher isd {sabe pagcnt] - ! REDUCE CURRENT I-SECT'S PAGE 
; 869 1 ¢ 9 newhdrisd Cisd$w_ pagent ' NUMBER THAT ARE EMPTY 
; 870 1 9 newisd Cisl$l_n xtisd) =. Lnk$gl_¢ i ONLY PART OF SECTION 
; 871 1 9 LnkSat curisd Lislst \_bufadr) = “euptydest nt3 ' $O NEW ISD POI TO 
: a6 1365 9 curhdrisd Cisd$v_vpg] = ' CURRENT AND THE BUFFER AND 
; 87 1 ¢ 4 “curhdrisd Fisdsv. vpg] + ' VIRTUAL ADDRESSES OF | 
: are 1 9 -newhdrisd Cisd$w_pagcnt] ; ! CURRENT ARE THE PAGES 
; 875 1 g 9 | BEYOND EMPTY REGION'S | 
; 876 1369 9 Lnk$gw_nisects = .lnk$gw_nisects + 1 ; ! COUNT NEW IMAGE SECTION 
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14-Sep-1984 LINKER.SRCJLNKIMGOUT.852;1 ) 
previee = .lnk$gl_curisd ; ! CURRENT ISD BECOMES PREVIOUS 
else 
be gin ! EMPTY REGION IS NOT AT FRONT 
newisd Cisl$l_nxtisd) = , ink$gl_ curisd Cisl$l amet isd ! CURRENT Points TO NEW 
Lnk$gl_curisd Cisl$l snag tees © Tnewisd ; N CURRENT I-SECT PAGE 
curhdrisd Cisd$w_pagcnt (OU BeCon BS, NO. BEFORE 
(.emptydesc CO] - .tnk$gl_curisd Cisist butadrs)7 REGION 
Lnk$gw_imgblks = ee sa°tisg + ' ADD ote RENT I-SECTS 
risd Cisd$w_pagcnt) ; ! INTO IMAGE BINARY TOTAL 
newhdrisd Cisd$v _vpgJ = .curhdrisd Lisd$v_vpg] / vier ADDR ess OF 
+ .curhdrisd Cisd$w =pagent BEYOND CURRENT 
Lnk$gw_nisects = .lnk$gw_nisects + 1 ; to oun? NEW IMAGE SECTION 


! IF EMPTY REGION IS 
! ALL THAT REMAINS 


is -emptydesc [1] gequ .ink$gl_curisd Cisl$l_bufend] } 
' 

begin . gourtes ety _bufend] = .emptydesc [0] -1 ; : ADJUST pe = ee 
' 


previsd = .newi 3 ! BUFFER A 
a. $ !' BECOMES PREVIOUS 
end 
else 
begin = ! NOW GENERATE AN 1S0 FOR REMNANT 
revisd = .newisd ; i SAVING NEW AS THE PREVIOUS 
nk$al loblk Cisd$c size,newisd) Z ' ALLO ATE THE DESCR IPTOR 
newisd Cisl$l_nxtisd] = .previsd Cisl$l nxtis d TO POINT 
preyisd Cist$T_nxtisd) = .newisd ; FORWARD AND POINTED TO 
nk$gw_nisects = _ Lnk$gw_ aisects +1 tj COUNT NEW IMAGE SECTION 
newisd Cisl$l _cludse = Tink$gl_ scurst 3! SET CLUSTER DESCRIPTOR POINTER 
newisd Cisl$l_bufadr] = .emptydesc [1] ;! BUFFER IS BEYOND EMPTY 
newisd Cisl$l_bufend] = ' REGION TO END 
-lnk$gl curied Cisl$l_bufend] ; ! OF REMNANT 
newhdrisd = newisd Cisl$t_hdrisdJ ; NAME THE HEADER PART 
' 


COPY THE CURRENT I<D 


ch$move (.curhdrisd Cisd$w_sizeJ, ' 
! TO THE NEW NE 


curhdrisd, “pounds isd) $ 
newhdrisd CisdSw pagent] : 


isd Cisl$l_bufend] ! PAGE COUNT IS AT 
SAT rtSh, _bufadr] ! MOST THE REMNANT 
} BUFFER SIZ 
' 


E 
newhdrisd Cisd$v_vpg] = ' VIRTUAL ADDR IS PAGE BEYOND 
Tcurhdrisd isd$v_vp pq] THE EMPTY REGIONS 
. (.newisd Cisl$l~butadrd 
. ink$gl_ curisd resist _bufadr] 


Lnk$gl_ curled Cisl$l bufend] = -emptydesc ro} - 1; ! CURRENT BUFFER BEFORE 

ink$glcurisd = .newisd ; CREATE: A NEW CURREN NT ISD 

if tuFheried Cisd$v _protect t] i PROTECT THE ISECT? 

then newhdrisd Cisd$¥_protect] = true ; ' 

end 2 ' THE EMPTY REGION 

end ; 
end : 
end 

until .emptydesc [1] eql 0 ; | 
end ; 
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3 g : 1¢ 7 end ; ; } 
; ¥ 14 § ; ALLOCATE A_ TABLE TO HOLD ISECT DESCRIPTOR ADDRESSES, AND FILL IT : t 
; 4 1? » IN. THEN SORT THE LIST INTO ASCENDING VPN ORDER. . 4 
3; YF 5 14 § if .Lnk$gl _shradr nes and .lnk$gl_fixisd eql 0 ! CREATE FIXUP ISD IF NEEDED ‘ 1. 
; 940 14 then LnkScrefixisd () ‘ 

: 941 1434 i] 
: 94 1435 2 if .lnk$gw_nisects n neg 0 27 
; 94 14 8 then inksel Tools (. ink$gw_nisects*4, isdlist) ' ALLOCATE sence FOR prect LIST ° 1 
> 944 44 else isdlist = 0; ' (we won't fill-up this List if : 4 
; 945 16 4 ! shareable non-based image) 2 y 
3 eee 14 if .lnk$qw 4 ts neq 0 ‘ 

; 94 1440 then tnk$eiTo blk ¢ inkSgw_ shriscts*4, shrisdlist) ! AND FOR THE SHAREABLE ISECT LIST . 1 
: 948 1441 2 else shrisdlist = 0; : 1 
: 949 144g ‘3! 
; 144 if .lnk$gwinclusters neq 0 ‘ 1 
>; 951 1444 then ink$slTobLk (. in nk$gw_nclusters*4, shrclulst) ! AND THE SHAREABLE CLUSTER LIST ‘ 
3 926 1445 else shrclulst = 0 ; s i, 
: 95 1446 2) 
: 954 1447 2 if .lnk$gl_shradr neq 0 7] 
; 955 1448 then Lnk$alToblk (.\n RS. shradr*4, adrclulst) ! AND THE .ADDRESS CLUSTER REF LIST : 1 
> 956 1449 else adrclulst = 0 ; ‘ 1 
: 957 1450 : 1 
; 958 1451 ink$gl_curclu = Lnk$gl_clulst 21 
3 222 1438 shrclunum = shrisdnum = oérelunun = isdnum = 0 ; ‘ } 
; 961 1454 while (Lnk$gl_curclu = .lnk$gl_curclu Celu$l_nxtclu]) neq 0 22 
; 968 1455 3 do begin 2) 
; 96 1456 if .lmk$gl_curclu Cclu$Sv_shrimg] ! IF CLUSTER IS A SHAREABLE IMAGE :1 
> 964 1457 4 then begin” 27 
; 965 1458 4 shrclulst C.shrclunum) = , ink$gl_ curclu ; ! SAVE CLUSTER ADDRESS IN LIST 37 
3: 966 1459 4 shrclunum = .shrclunum + 77 
> 967 1460 4 firstisd = .lnk$gl_curclu Eetust fstisd] ; !' GET POINTER TO FIRST ISECT DESCRIPTOR sv 
> 968 1461 4 firstisd = firstisd Cisl$t_hdrisdJ ; ! POINT TO PART BOUND FOR HEADER ST 
: 969 146¢ end ; ey 
; (971 1464 if not - Lnk$gt curclu fclusy. hs ! IF NOT SHAREABLE IMAGE CLUSTER 71 
; WT 1465 and -lnk$gl-curclu Celu$l-adrcnt) neq 0 ! AND IT HAS .ADDRESS REFERENCES TO IT sv 
; 97 1466 4 then begin : 1 
; 974 1467 4 adrclulst C.adrclunum) = .lnk$gl_curclu ; ! SET ADDRESS INTO LIST 3} 
: 975 1468 4 adrclunum = ladrclunum + 1; SB. 
; 379 1290 — i1 
3; 978 1471 previsd = Ink$gl_curclu CcluSl_fstisd] ! POINT TO ISD LIST THIS CLUSTER 

F 979 147 ; while (previsd = ~‘previsd CistSi_nxtisdi) neq 0 i AND RUN THRU THEM ALL 

; «981 1474 4 bind. isdhdr = previsd Cisl$t_hdrisd] : block C,byte] ; |! NAME PART BOUND FOR HEADER 

3 35 1673 : y -Jadher Cisd$w_pagcnt) neq 0 ! ONLY PUT ISECTS WITH MEMORY ALLOCATED 

3 en begin 

: oae 1477 ? ifnot . ink tol curcte Cclu$Sv_shrimg) ! IF NOT A NON-BASED SHR IMG 

: 338 1479 6 -ink$gl_curclu Cclu$v_based] 

; 98 1480 6 

; 4988 1481 6 then teat ' CLUSTER IS EITHER LOCAL OR BASED 

: 989 14 $ 6 soe C.isdnum) = ograuisd 3 ' SHAREABLE IMAGE =~ INSERT INTO THE 

: 990 1483 6 = .isdnum + 1 ; ! LIST 
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: 991 1484 6 end 

; 99 1485 6 else be in ! IT IS A NON-BASED SHAREABLE IMAGE 

; 99 it 6 saris sdlist C.shrisdnum] = “preyisd ; 

; 994 14 6 :. risdnun = .shrisdnum + 1; 

: 995 1488 6 if f not, . UnkSgt_ curclu Celu$v_copy] UNLESS TAKING A PRIVATE COPY OF THIS 

3 hen ! 

5 399 1490 7 ‘ai -isdhdr {sdgv -vrt ' IF THIS 1s A at es NON-CRF SECTION 
; 998 1491 7 ond not .isdhde Cisd$v “cr ' (1.€. SHAREABLE WRITEABLE) 

; .999 1436 7 hen firstisd Cisd$v Svecst = true ; ! THEN FLAG IN SECTION THAT WILL GO INTO 
; 1000 1495 7 ou itionn $ ' ALL DONE WITH ISECTS IN THIS 

: 1001 1494 3 end ; ! PIC SHR IMG CLUSTER 

3 1008 1495 end ; 

: 100 1496 4 end ; 

3: 1004 1497 end ; 

; 1005 1498 end ; 

: 1006 1499 

: 1007 1500 if .tnk$gl_shradr neq 0 

$ H's 138) i (.Lnk$gl-fixisd neq 0 and not .Lnk$gl_ctlmsk Cink$v_sysJ) 

: en 

: 1ot9 1308 ink$createfix (.shrclunum,.shrclulst,.adrclunum,.adrclulst) ;! CREATE THE FIXUP SECTION IF NECESSARY 
3 Hat 4 1303 ink$sortisects (.isdnum, .isdlist) ; ! SORT ISECTS FOR BASED AND LOCAL SECTIONS 
3; 1014 1507 if not  ink$gt ctlmsk Clnk$v_sys] ! IF NOT A_ SYSTEM IMAGE 

; 1015 1508 or elnk$gloctlmsk Clnk$v_ ~sysheadr) ! OR A SYSTEM IMAGE WITH A HEADER 

3 1016 1509 then 

3 1017 1510 begin 

$ 1oi8 131) local status ; 

: 1020 1313 if .isdnum neq 0 then inchdrsize (.isdnum, .isdlist ' COUNT ISD'S INTO IMAGE HEADER 

: 1021 1514 if :shrisdnum m ? then inchdrsize (.shrisdnum, ate tedlise) : ' FOR SHAREABLE IMAGE ISD'S  aiaoe 
; 10s¢ 1515 3 inchdrsize (1 ' NULL ISD TERMINATES THE L 

3; 10 1516 4 if (status = Llaroumebad (.lnk$gw_hdrblks+1, header_desc)) ! GET SOME MEMORY FOR THE HEADER 
: Ose 131% : then a m3 ! (plus 1 for page aligning) 

: 1026 1519 4 Fokéer desc (0) = (.header_desc (0) + 511) and not 511 ' PAGE ALIGN THE HEADER 
: 1027 1330 4 header_ Ptr = ch$fill TO, ihd$k _maxlength, .header _desc C0J) ; ZERO FILL FIXED PORTIO 
3: 1028 1521 4 header = shesh easier ot th ; ' RESET HEADER SIZE 

3 106 15 ; 4 chstilt. (rarsk _fillehr, (512* nk Sw. hdrblks = ihd$k_maxlength), .header -ptr) i alt LL THE ee 
3; 10 15 4 end ! WITH FILL CHARACTER 
: 1031 1524 3 else 

3; 103 1525 4 begin ! BUT ON FAILUR : 

; 103 15 § “ signal (.status Lin$_noimgfil) ; ' REPORT THE ERROR 

3 ORC 15 4 ink$gl_ ctlmsk Etnrgy image) = false ; ' DISABLE IMAGE PRODUCTION 

3; 1035 15 ] 4 return ; ' AND QUIT 

: 1039 1389 aan 

: 1038 1531 ink$gw_dstblks = (.lnk$gl_dstend + 511)/512 ; ' COMPUTE THE NUMBER OF BLOCKS 

; 1039 15 § end ; 

; 1040 15 ‘ 

: 1041 15 j orn THE IMAGE FILE 

1008 133 . Unk$gl_dmtbyt 0 

: n m es ne 

; 1944 3 iat Gmeetks = tC ink$gl. dmtbytes or 511) +1) / 512 ; 

: 1948 15 } fileblks = -inkSou_ hdrblks + (nkSon, fagbthe + ' COMPUTE THE FILE SIZE 

3 1047 1540 -lnk$gw_dstblks + .dmtblks ; 
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if -inkSot. ctlmsk pinkSv.db dbg ! IF A DEBUGGABLE EXECUTABLE IMAGE 
or .tnk$ gt ctlmsk [Elnk$v_sh ' OR A SHAREABLE IMAGE MAKE INITIAL 
then fileblks = .fileblks + rs Lnk$gw_lsymbols + 39)/20 ; ' ALLOCATION LARGER FOR THE SYMBOL TABLE 
S$fab_init (fab = imagefab 
efac = (bro,get) 
mrs = 512 
orfm = fix 
,alq = .fileblks 
efns = .lnk$gl_imgfil Cfdb$w_usrnamlen 
fna = 2}oksel jagtit fdb$l"usrnamadr 
,dns = (if .Unk$gb_locnov_exé 
then Xcharcount (". EXE") 
else Ycharcount ('SYS$DISK:CJ.EXE") 
dna = (if .lnk$ b. Locnov_exe 


~" 
~ 


then uplit (byte ('. Exe’ 
Shee uplit (byte ("SYS$DISK:C).EXE')) 


aux fnb 


ee 


USE ‘OUTPUT FILE PARSING’ UNLESS 
/EXE WAS A LOCAL QUALIFIER 
WITH A SPECIFED VALUE 


IF USER SAID CONTIGUOUS THEN 
ATTEMPT TO DO IT, OTHERWISE 
AS CONTIGUOUS A Meee AS POSSIBLE 


AND POINT THE RAB AT THIS FAB 


then imagefab [fab$Sv_ofp] = false 
else imagefab (fab$v_ofp] = true ; 


if - LnkSgl, crleek pinkSy contig] 
then imageta p bfab $v ~£f9] = = true 
else inaketeb fab$v_cbt] = true ; 


ink$al_imgrab Crab$l_fab] = imagefab ; 


if not (sget ini (ital statauser. a tl : 


stanie*s le 
then Tne eetoset . 


errorcode = eae, # (fabs image fab) : 
rmsstv = .imagefab Cfab$l_stv] ; 
-errorcode 


if .lnk$gb_ Dffeb exe 


THEN CLOSE A FILE 
AND TRY AGAIN 


or not (errorcode = $connect (rab=|nk$al_im rab) 5 CONNECT A STREAM 
rmsstv = .lnk$al_imgrab Crab$T_stvJ ; 


-errorcode 


AND IF THERE IS AN ERROR 


then begin 
THEN REPORT IT 


signal (Lin$_openout,1, panOe tnendiet teagetabs 
-errorcode,.rmsst v THEN THE RMS STATUS 


Lnk$gl_ ctlmsk Clnk$v _image] = false ; TURN OFF IMAGE PRODUCTION 
powers : ' THEN GIVE U 
end ; 


ch$move ifecte s_bln, Lnk$filnamdsc (imagefab) 
nk$gl_Tmgfil Cfdb$q_filenane) 


are = ,imagefab CfabSw_ifi) ; ! SAVE THE INTERNAL ID FOR CLOSE LATER 


SET UP REAL FILE NAME DESCRIPTOR 


th ak sh es a ss ss a ss as ss a Ht HS a 9 as 9 SS 9 ss a 


Gh. aah 4h Gan 2 24h 04% O24 04: O4 24 OF Oe. OG: 24% 24. Om. OO. Oe. Oe 24h OS O4 Oe. a6h Bee. OG BE OG. O EE. ES. OG. OS. 04. OR. EE Oo 
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a) 
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oe 
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dmtvbn = .curvbn RECORD VBN 

if not uritesection (.dmtblks,.curvbn,.lnk$gl_dmtbuf fer (0]) ! AND OUTPUT THE BLOCKS 
then return ; 

"ey = .curvbn + .dmtblks ; 
end ; 


UPDATE VBN 


Now, if we are producing a shareable image that has no image data, then 


06 298 curvbn = 1+ .Lnk$gwihdrblks ; ! FIRST I-SECTION STARTS AFTER HEADER 
600 writeisects f. isdnum, .isdlis ! WRITE OUT LOCAL AND BASED ISECTS 

08 601 writeisects (.shrisdnum, ariadtet 3 ! WRITE OUT PIC SHAREABLE Iseers 
10 $08 if ae hdrblks neq. 0 ! JF IMAGE HAS A HEADER 

12 ope then toheader (0) ; ! THEN ENTER TERMINATING ISD 

1 6 if .dstbufter (0) neq 0 ! IF A DST BUFFER IS ALLOCATED 
1 607 _ - bnk$ow_ dstblks nee 0 ! AND DST WAS WRITTEN 

en 
1$ 6 Unk Sgy, osy vbn = eo ! RECORD THE VBN OF IT 
i ? if noturitesection < ink Sgw.. dstblks,.curvbn,.dstbuffer (0]) ! AND OUTPUT THE BLOCKS 
urn ; 
i an = .curvbn + -lnk$gwidstblks ; ! SET NEXT VBN 
end ; 
1 
§ na “antoks ony he C0] neq 0 ! IF A DMT BUFFER IS ALLOCATED 
s neq 0 : AND DMT DATA WAS WRITTEN 

& chen begin 

5 

6 

7 

8 

9 

0 


we have to adjust the end-of-file to prepare for the correct 


| placement of the symbol table 


if .Unk$gl_ctlmsk Clnk$v_shrJ] 
an 
-lnk$gw_imgblks eql 0 


PMPIPIPONNNNON 2 2 OOO 


MEUM (SO OONAUE WN (QO VDONAUS WNC OO 


pet tay eye epee yb 4 


ee a kk a a ad ad dd od g 
PAEA-AAAAAAAAAAAAAAAAAAAA AAA AAA 


a kk it tk a a ik ak an nk nk td a at 2 ts = a a 2 2 2 SS tS os SS ss SS OS 
ee ee a ee ee ed ae ee ee ee a ae ae ee cel ee ce cl ee ce ce cl cl cel el cl ll cl el el cl cl el cl el el el el cl 


= POIPDIMININHILPIPINPINININPIPININININININININIPINI WWM AAP PI AAAI ANI APIPIPIPOPOPOPININD 
7 


38 en 
39 i if not writesection(.lnk$gw_hdrblks, 1, .header_desc ([0]) 
40 3 then 
41 3 return; 
$5 3 
4 36 
44 tH if .lnk$gl_ctlmsk Cink$v =shr) ! IF PRODUCING A SHAREABLE 
$? 3 or stake" i=ctlmsk Clink$v_dbg ! OR DEBUGGABLE IMAGE 
en be 
43 40 $d sconnect (rab = Lnk$al_imgrab) ; ' DISCONNECT THE RAS 
48 641 ink$gw_ gstvbn = .curvbn 3 ' SET THE VBN OF THE GST 
49 on6 end ; 
50 64 
51 644 ! AND WILL CLOSE IT AFTER SYMBOLS 
6 645 return ; ! AND HEADER ARE WRITTEN 
5 646 end ; 


-PSECT SPLITS,NOWRT,NOEXE ,2 


58 45 2 00938 P.AAE: aati € ex EXE\ ; 
59 O3C P.AAF: ASCII \SYSS$DISK:C).EXE\ : 


ou 


4 
45 58 45 2—€ 5D 5B 3A 48 53 49 44 2 


12 
TB-Se0-1984 09:00:24 YAK-11 BLing-$2 v4.0-742, 


oe 


-EXTRN SYSSGETPTI, SYSSGETJPI 
sEXTRN SYSSCREATE, SYSSCONNECT 
eEXTRN SYSSDISCONNECT 


«PSECT SCODES,NOWRT,2 
~ENTRY LIM SELYSHING. Save R2,R3,R4,R5,R6,R7,RB,R9,-; 1142 


8C AE 9E 0000 MOVAB -118(SP), SP : 
7E 000000006 5 6 c 8 ADDL #38, LNKSGL_IMGFIL, =(SP) t 1190 
é 900000006 E1 0 OF BBC #3, LNKSGL_CTLMSK, 2$ : 1198 
00000006 1 EO 1 BBS # ENKSGL“CTLMSK#3, 2$ + 119 
000000096 09 p OO1§ MOVL syS1sp, R + 1196 
51 18 AO 9€ 00 MOVAB 24(RO). R1 : 
00000000' EF D4 900 9 CLRL HEADEr SIZE + 1198 
0 D3 O02F TSTL =o + 1199 
08 13 00031 BEQL =:*'1$ F 
00000000" EF 02 ost 80 00 3 ‘a mov (R1), LNKSGW_IMGBLKS : 1200 
FF  8F 00000000° fF 1 O003E 2$ CPB NKSGB_MATCHCTL, #255 : 1308 
00000000° EF 01 $5 Goes MOVB #1, LNK$GB_MATCHCTL : 1205 
00000000" EF 000000006 00 1F 0 ai 004F EXTZV #0, #31, LNK$GQ_ALOSTIM+2, LNKSGL_MATCHID : 1206 
000000006 00 000000006 00 : 000SC 3$ MOVAB LNKSGL_CLULST, CNKSGL_CURCLU : 1208 
50 000000006 00 dO 00067 4$ MOVL  LNK$GL~CURCLU + 1209 
000000006 00 60 D0 D006 MOVL (RO), CNKSGL_CURCLU F 
50 000000006 90 v6 00077 mOVL LNKSGL_CURCLU, RO + 1211 
000000006 00 30 pt 00086 cMPL RO. LNKSGL_LSTCLSTR : 
96 D6 00089 INCL RI ; 
52 000000006 00 01 08 EF 0088 5$: EXTZV #2, #1, LNKSGL_CTLMSK, R2 : 1212 
08 AE 51 52 CB 00094 BICL3 R2. R1. LASTCLOSTER : 
57 18 AO 9E 00099 MOVAB 24(RO). PREVISD : 1213 
00000000" €éF 67 0 9090 6$: HOV (PREVISD) , LNKSGL_CURISD : 1214 
50 00000009" EF po O0A6 MOVL LNKSGL_CURISD, RO : 1217 
51 18 AO 9E OO0AD MOVAB 24(RO)7 R : 
000000006 00 30 p] 908 cMPL RO. LNKSGL_FIXISD ; 1219 
00000000' EF 02 Al ab ace ADDW2 isn LNKS$GW_IMGBLKS 3 138 
54 02 i 9 ce 7$ MOV (R1), R4 : 1 ; 
64 2 (8 TSTw  (R4) : 
9 CA BNEQ 9$ ; 
000000006 00 e ob : DeCW NKSGW_NISECTS ; 1338 
000000006 09 93 O03 $ iste NKSGL_CTLMSK+2 : 1232 
52 000000096 0 p DD MOVL NKSGL_CURCLU, R2 : 1233 
A £4 TSTB (R2) F 
1 E BLSS $ ; 
1 fl 9 BBC #1, 10(R1), 118 > 1234 
Al 4 : EE 10$: B1SB2 #4: 10(R1) > 1235 
08 AE CE F2 11$:  BLBC  LASTCLUSTER, 12$ > 1237 


et i kk a ne a a 9 ss ss ss Ls ss ss SS os Ss Ss Hh 2 SY ss Ss SS Sh OS SH HY Hs 


12 
16-Sep-1984 00:24 AX-11 8Lliss-32 V4.0-74 Page 
1 ats? 99:08:45 LINKER. SRCJLNKIMGOUT.B32;1 . (35 
08 Al 8F 88 O00F6 BISB2 #128, 8(R1) : 1238 
3 88 Al § ore MOVAB Bags R2 + 1240 
6F 6 08 £ FF BBS #2, (R2), 198 : 
08 A p 103 TSTL  8(RO) + 1261 
6A 1 é BNE 198 : 
1D 62 E1 001 BBC ¥ (RQ) 14$ + 124 
1D E8 0010C BLBS (Rd), 15$ t 124 
07 000000006 00 E1 0010F BBC #2, LNKSGL_CTLMSK, 13$ + 1264 
000000006 E9 00117 BLBC —LNKS$GL UNSOPPORTED, 14$ + 1246 
61 C 0 11 MOVW #12, (RI) + 1249 
62 4 01 BISB2 #4, (Re) + 1250 
6 é A 00124 BICB " (R2) + 1251 
1 00127 BRB 19$ 31 4g 
2 63 E9 001 BLBC (Rz2), 17$ + 125 
000000006 DO 001 MOVL LNKSGL CURCLU, R3 + 1255 
OE 58 OA 04 €1 001 BBC #4, B8TR3), 16$ ; 
OA 7 IF; £0 4 BBS #i8, (R2), 16$ : 1256 
08 Ad 000000006 9 D 0013¢ mova LNKSGL_GSBUFDSC+4, 8(RO) > 1258 
€ 11 00144 BRB 9$ : 1255 
oc Al D4 00146 CLRL =: 12(R1) :1 62 
08 ad 7C 00149 CLRQ 8 (RO) + 126 
24 11 0014C BRB 19$ + 1253 
08 Ad 3 O14E PUSHAB 8(RO) + 1270 
7E 64 3¢ 00151 MOVZWL (R4), -(SP) : 
000000006 00 08 Fe 00154 CALLS #2, LNKS$REQUESTMEM : 
14 £8 00158 BLBS STATUS, 19$ : 1372 
000000006 i DD 0015E 18$ PUSHL #LINS_NOIMGFIL > 1274 
D4 00164 CLRL. -=(SP) : 
50 DD 00166 PUSHL STATUS : 
000000006 00 03 FB 00168 CALLS #3, LIBSSIGNAL : 
OSC? 31 OO16F BRW + 1275 
50 00000000" EF Dd 00172 19$:  MOVL NK$GL_CURISD, RO : 1280 
08 AO D5 0017 TSTL (RO) : 
21 13 0017C BEQL 1$ ; 
000000006 00 64 Bi OVE CMPW  (R4), LNKSGW_DZROMIN > 1282 
11 1F 0018 BLSSU : 
0D 62 03 €1 00187 BBC #3, (R2), 208 : 1283 
000000006 00 000000006 00 81 1 CHP NKSGW_NISECTS, LNKSGW_MISECTS > 1284 
00000000" EF 64 AO O88 208: ADDW2  (R4), LNKS$GW_IMGBLKS > 1286 
3¢ ra 9 EO O19F 1$: BBS ae. (rR), ges + 1288 
8 6 E1 143 BBC #3. (R2). 228 > 1289 
: 62 €8 OO1A BLBS (Re), : 1290 
000000006 00 64 81 TAA CHP (R4). LNK$GW_DZROMIN > 1291 
000000006 00 000000006 9 81 s8e CHEW NKSGW_NISECTS, LNKSGW_MISECTS : 1292 
OD 000000006 00 Ef 106 BBC #2, LNKSGL_CTLMSK, 23$ + 1293 
: 000000006 E orc BLBS | LNKSGL_UNSOPPORTED, 23$ : 1295 
i: p Ick 22$: ROVE RO, PREVISD : 1297 
58 00000000' cf 1 C1 ibs 23$:  ADDL3 #24, LNKSGL_CURISD, R8 : 1300 
E 000000006 C 00100 MOVZWL LNK$GW_DZROMIN, -(SP) ; 1308 
1 DD OO1E4 PUSHL #1 ; 
£ p4 166 LRL. = : 
7¢ AE F OO1E PUSHAB EMPTYDESC : 
7E 00000000" EF 08 C1 OO1EB ADDL3 #8, LNKSGL_CURISD, -(SP) : 
| 


12 
LNK_ T 18-$6 =1984 00:00:24 AX-11 Bliss-32 V4.0-74 Page 
WOLz000-- 1 ~300n 138% 90 08:86 LINKER. SRCJLNKIMGOUT.B32;1 . a 
000000006 00 95 FB OO1F3 CALLS #5, SYSSGETPTI : 
4 & 0 DO OO1FA MOVL RO ERRORCODE : 
04 AE EB OO1F BLBS §§ ERRORCODE, 24$ ; 
000000006 gF DD PUSHL #LINS_NOIMGFIL ; 
—E D4 CLRL. = = (SP) : 
o¢ A bo A PUSHL GRRORCODE : 
76 Am 3¢ D MOVZWL 2(RB), =(SP) : 
7E 04 As 1 00 EF 00211 EXTZV. #0, #23, 4(RB), -(SP) : 
30 00000000" EF BO 17 MOVL LNKSGL_CURISD, RO : 
= 08 AO 7D 3 MOV (RO), ~=(SP) : 
4 DD PUSHL # : 
000000006 8F dD 4 PUSHL  #LINS GETPTIERR : 
000000006 00 9 F A CALLS #9, LIBSSIGNAL ; 
0505 3 1 BRW 69$ : 
74 AE 06 00234 248: INCL MPTYDESC+4 : 
0D 13 00237 BEQL 5$ : 
000000006 00 000000006 09 i 0 39 CPW NKS$GW_NISECTS, LNKSGW_MISECTS : 
57 00000000 EF DO 00246 258:  MOVL LNKSGL_CURISD, PREVISD F 
00000000' EF 02 A8 AO 00240 ADDW2  2(R8), LNK$GW_IMGBLKS : 
4 AE bs 0255 CLRL MPTYDESC+4 ; 
0165 31 00258 BRW F 
Oc AE 9F 00258 26$:  PUSHAB ; 
7E 58 BF 9A 0025 MOVZBL #88, -(SP) : 
000000006 00 02 FB 0026 CALLS #2, LNKSALLOBLK ; 
59 ie AE DO 0026 MOVL NEWISD, R ; 
10 A9 000000006 0 bd 0026D MOVL LNKSGL_CURCLU, 16(R9) : 
08 Ad 7C 00275 CLRO (R9) : 
56 18 Ad 9E 00278 MOVAB 24(R9), NEWHDRISD : 
66 0C BO 0027¢ MOVW #12, (NEWHDRISD) F 
50 74 AE 70 AE C3 O027F SUBL3 EMPTYDESC, EMPTYDESC+4, RO : 
51 50 00000200 ar ¢? 00 85 DIVL3 #512, RO, RI ; 
02 A6 1 BO 00280 MOVW  R1, 2(NEWHDRISD) : 
50 08 As 02 ¢B 00 91 BICL3 #2. ) F 
08 A6 50 04 C€9 00296 BISL3 #4. RO, 8(NEWHDRISD) ; 
07 Ab 94 00298 LRB = 7(NEWHD 18D) : 
04 OA a8 2 7 029 BBC #2, 19¢R ), 278 F 
OA A 4 88 002A BISB2 #4. 10(NEWHDRISD) ; 
50 00000000" EF DO 002A? 27$:  MOVL  LNKSGL CURISD RO : 
08 A AE D1 002A CMPL EMPTYDESC, (RO) ; 
36 12 0028 BNEQ gs ; 
67 9 DO 0028 MOVL 9, (PREVISD) ; 
04 Ab 17 00 046 AB F B8 INSV 4(R8), #0, #23, 4(NEWHDRISD) : 
02 =A 02 Ab A BF SUBW2  2(NEWHDRISD), 2(RB) : 
6 D C4 MOVL RO, (R9) : 
08 A 7% Ar D C7 MOVL ENPTYDESC +4 8(RO) : 
51 06 a8 1 0 i ¢ EXT2vV. #0, #23, 4(R8), RI F 
52 02 Ag ¢ 020 MOVZWL 2(NEWHDRISD), R2 : 
51 C D ADDL2 Re. R1 ; 
04 a8 17 00 FO 00209 NSV R11. #0, #23, 4(R8) F 
000000006 Q B DF INCW LNKSGWNISECT : 
p ES MOVL RO VIS F 
00d E BRW 30$ : 
69 $0 D EB 28$: MOVL (RO), (RO) F 
60 D EE MOVL. R9, (RO) ; 
51 70 AF 08 AO ¢ 6 f SUBL (RQ), FMPTYDESC. R1 ; 
52 51 000002 BF C F7 DIVL3 #512, R1, R2 F 
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z 
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Wie =32 V4.0-74 Page 34 04 
16-Sep-1984 00:00:24 AX-11 Blis . , (5) 
vou=008 ex 8ep=198e 92:00:80 EC TNeR SRETLNKINGOUT B92; 1 3 . 
- 2(R8) * 138 : 
As 52 80 O02F Moyua «= § NK$GW_IMGBLKS : 3 1, 
00000006" Ff 02 AB AD 00808 apoue athas qCRAY, Ri 1389 a] 
51 AB g oo 3B Sf RoviMe 2¢h8) «Re HE 
ef cb 13 anpi2 fe, #0, #23, 4(NEWHDRISD) 4 ange 2) 
04 6 ai 7) ag 000000006 i Be Bat SUEL3 a}. ERPTYDESC, R11 : 1388 : 1 
* % AED g CPL ERBTYDESCS4, 12(RO) a i] 
oo ante ee yee) i] 
oc a0 B Bo Ob Ra BRW $ > 1395 7] 
ag F A 298: PUSHAB Se - : He 
7E 9% F 9A a CALLS” 1 ENKSALLOBLK * 1396 : 1 
000000006 99 2 FB 00541 CALLS ge tN i 4 
Oe 8 BR Rhee MOVE — (PREVISD),_(R9) : 1397 1 
69 BF bokee VL ——-R9,_ CPREVESD) : i308 1 
900000006 00 Be 00 58 INCH LNESGWNISECTS | : 1399 : | 
See Rees Be HBL igs . oe 
KSGL_CU : 
5A 00000000" EF 00 00365 MOVE. THERIOT  12cRS * 1403 
0 AA 00 0036C MOVL e RISD ; 140 
et) Gee oe ig 
66 0379 SuaL$ — §(R . : 1407 
50 oc Ad 08 a9 ; Rov 11(R6) > 1409 
50. O1FF. «CO 037F L? 
ae ene) os ag 
A9 08 AA C3 00390 UBL j ° 1414 
oe et eee ee : 
51 04 As 51 98 C O33 Tt El oH #23, 4(NEWHDRISD) * 1415 
17 00 51 FO 003A Move R14, 12(R105 1216 
06 Ab oc AA 2B be 0386 ROVE AY. “LNKSGL_CURISD ¢ 1218 
94 90000 OB 02 £1 0038 BisB2 #4. 1OCNEUADAI SD) : ig 
OA Ab S SE ORES sos, Fate” Endrypeetns : 
74 5 3 ° woe ue ; 
FCD 3 ¢ BRwW $$. ; 
FEOA 31 003C8 318: — BRW saaaa : 1432 
000000006 90 > ° CB 328: TSTL —LNKSGL_S 
f D TSTL —_ LNKSGL_FIXISD ; 
000000006 90 3 00303 BNEG $ 1433 
000000006 00 FB 003D ROVPOL UNKSCUNISECTS. RO ¢ 1435 
$5 000000006 op x 3 338: MOV? ae D tans 
10 Age Ob Ree ASH AB, RO, ~(SP) 2 
7€ 50 ALLS #2, LNKSALLOBLK : 
000000006 if 9 Hs ee i 1437 
10 A ; RISCTS, RO : 
FE 35$:  MOVZWL LNKSGW_SH 
50 000000006 05 a O5FE BEdL Sos 


rennet 


16- :0 AX-11 Bliss-32 V4.0-74 Page 
14- ats 99: 98: $3 LINKER. SRCJLNKIMGOUT.B32;1 : A | 
AE 9F 00407 PUSHAB SHRISDLIST ; 1440 
7E 30 % <Oh ASHL #2, P) : 
000000006 0 re 4 CALLS #9. LNKSALLOBLK : 
Re og Shei? sos: at : = 1441 
50 00000006" Ff i ais 38: ROVuL Ui SGu_NCLUSTERS, RO + 1443 
18 «OA Hi 423 PUSHAB SHRCLULST + 1444 
7E 50 8 00426 ASHL #2, RO, = F 
000000006 00 re 4 A CALLS 4 { LNKSALLOBLK ; 
AE D4 004 $: CLRL SHRCLULST + 1445 
50 000000086 05 09 oe é 38: OVE NESE _SHRADR, RO + 1447 
1¢ AE OOF 0043F PUSHAB ADRCLULST + 1448 
7E 30 02 78 00442 ASHL #3. RO -(SP : 
000000006 00 0 re 446 CALLS #2. LNKSALLOBLK F 
11 00440 BRB 4i 1§ : 
AE D4 O044F 40$: = CLRL ULST + 1449 
000000006 00 000000006 Q 9— 00452 41$:  MOVAB tNKSeL CLULST, LNKSGL_CURCLU + 1451 
5 it O0¢3r att ro ae — 
50 000000006 00 DO 00461 MOVL LNKSGL CURCLU + 1454 
000000006 00 60 00 00468 42$: MOVE » CNKSGL_ éureLu : 
50 000000006 00 od 8094 MOVL LNKSGL C RcLY RO + 1456 
13 58 Q E1 00478 BBC nS: 6 ; 
18 BES DO 0047D MOVL R SSHRCLULSTESHRCLUNUMJ + 1458 
5 06 0482 INCL HRCLUN + 1459 
54 18 Ad dO 004 MOVL 4(RO), FIRSTISD + 1460 
54 18 CO 004 ADDL2 ‘ 4, FIRSTISD + 1461 
0c 58 AO 08 EO 00488 BBS "8B(RO), 44$ + 1464 
34 Ad D3 o338 43$ st 3e( SBin RO) + 1465 
1C BE42 9 Dd 0049 MOVL RO @ADRCLULSTCADRCLUNUM] > 1467 
52 D6 0049A INCL _—ADRCL > 1468 
57 18 AO 9E 0049C 44$: MOVAB aeRO. UPREVISD + 1471 
57 67 DO 004A0 45$:  MOVL  (PREVISD), PREVISD > 1472 
C3 13 004A BEQL  42$ F 
51 18 A? 9E 004A MOVAB 4 (PREVISD), R1 + 1474 
02 Al BS 004A9 TSiW (R1) > 1475 
F2 13 OO4AC BEQ.  45$ : 
04 58 A 02 €1 004A C a 88(RO), 46$ + 1477 
09 58 AO €9 0048 BLBC = BB(RO), 47$ : 1479 
10 BE49 57 DO 00487 46$:  MOVL BREVIS.” @ISDLISTCISDNUM) : 1482 
59 D6 04BC INCL }SDNUN > 148 
£0 48 BRB $ : 1477 
14 BEGA DO 004C0 47$:  MOVL PREVISD, @SHRISDLISTCSHRISDNUM) > 1486 
SA D6 4¢ INCL  SHRISDNUM > 1487 
D4 58 AO 4 £0 004C¢ BBS #4, 88(RO), 458 : 1488 
97 08 al 3 £1 004CC BBC #3. 8(R1), 43$ > 1490 
92 08 Al 1 0 401 BBS #1. BRI). 42 : 1491 
08 Ad 8 406 B1SB2 a (FIRSTISD) : 1492 
1 OO4DA BRB 42$ : 148 
000000006 f iPS 48$: st NKSGL_SHRADR : 1500 
000000006 00 D5 O04E TSTL  LNKSGL_FIXISD > 1501 
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Ag 


00000000" 
OOAS = BF 


50 FF 


00000000" 


11 000000006 


00000000Vv 


000000006 
08 000000006 
03 000000006 


00000000v 


00000000v 
00000000V 


000000006 


50 00000000' 
EF 


00000000' 
00000000" 


50 

8F 

20 00000000" 
00000000' 


EF 


00 


EF 


QOO001FF 
000001FF 


00000000° 


A8 
00000000" 
FF58 
00000" 
OO1FF 
00000200 


000000006 


1¢ 
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74 Page 36) 
0 LINKER. SRCJLNK IMGOUT.B32;1 . nad 


ae ; 
#3, LNKSGL_CTLMSK, 50$ 


ADACLULST 1503 


1505 
DNUM 
LNKSSORTISECTS 
LNKSGL_CTLMSK, 51$ 
LNKSGL-~CTLMSK+3, 51$ 


1507 
1508 


] 

| 
1513 
1514 
1515 
1516 

| 


z 
to 
= 


2r- 


UM 
INCHDRSIZE 
SDNUM 


DLIST 
DNUM 
NCHDRSIZE 


or DAD VVSRMTOFw + 
oe 


vv0 fe 


R_DESC 
WIHDRBLKS, -(SP) 


NKSREQUESTMEM 
TUS, 54$ 


. HEADER DESC, RO 
, RO, HEADER DESC 
), #0, #188, @HEADER_DESC 


R3, HEADER_PTR 

#168, HEADER SIZE 
LNKSGW_HDRBLRS, RO 

#9, RO” R 

-168(RO), RO 

#0, (SP), #255, RO, @HEADER_PTR 
#511, LNKSGL_DSTEND, RO 
#512, RO, RI 

R1, LNKSGW DSTBLKS 
NKSGL_DMTBYTES, RO 
#511, RO 

# 12 RO, DMTBLKS 
LNKS$GW_HORBLKS, RO 
LNKSGU"IMGBLKS, R1 
LNKSGW_DSTBLKS, R1 

R1, RO 


Ss 
Ss 
I 
) 
) 
INCHDRSIZE 
DE 
$6 
) 
L 
U 


RRRBR—“V BOO TBVVBOOBIVN VY Be NIB VBVB- 
OWNS ANIM ZMM A & AMT TWIN YNIYHNwNw 


——AP- UX} 


. 
—— 

~~ 

wn 

vw 


Se Se Se Se Se Se Ge Se Se Se Se Se Se Ge Se Ge Se Se Se Se Se Se Be He Se Ge Se Se Se Se Se Se Se Fe Se Se Fe Be Ge Se Se Fe Se Be Fe Fe Se Fe Fe Fe Ge Sa Se Se Se Se Se 


a a ee ee eee ee ee LL) 


Re Se Be Oe Se Se oe Oe BH Oe Se Ge BH Se Se Se SH Se FH Se FH FH Se Se Se BH Se Se Se BH Se ese Be FH Se Se Se Se Se Se FHP Se ee Se SH Se Se Se Se Se ee Fi ae Se Se teas 


Ang 


0050 


8F 


00 


06 000000006 
26 


26 
00000000" 


000000006 


000000006 
000000006 
04 


000000006 
04 


38 00000000' 


0 000000006 


C 
0 00000000" 


2 
500 


42 


wees \ 
000000006 
00000000" 
00000000° 


oc 


0200 


20 


000000006 


3 000000006 


20 


6% 


A 
53 00000000' 
é 04 


FOWS SOW NO M*WHLE VO MVNMVOCOM SMH MMOOL NOME 


OOOO VNNO NFS VO QCNONMMWNOOOMPF VIMOMWNO FP OP OW10 F OW" VOOOM 


PAA AAAOASOS 
MOVIVWOOONOoN 


1 
1 
¢1 860F 
E0 17 
+ oi 
7 
Hse 
5 He 
C 8 7 
80 0640 
DO 00646 
3 98 
9 64F 
DO 00653 
D0 00657 
dO $028 
9A Bnee 
ES O066A 
9E 8680 
11 00674 
9E 00676 
DO 00670 
90 Bpe8) 
ED 00686 
00 00689 
11 0068C 
DO 0068E 
90 00691 
BO 00695 
E9 00698 
BA Bene 
11 QO6A 
88 006A4 
4 006A8 
8 00680 
11 00684 
88 00686 
9E 006BA 
7C 00 
D4 00 
9F 00 
7C 00 
P 00 
Hi 
14 
F8 00 
9F 00 
F 
D 
D 
: 
F 
D 
D 
E 


—DOO7 ATM 


VIR SWS OU FS SIOM NOMA Sr 


NNNINO OOO 


SSS SSS Se. 


57$: 


58$: 


67$: 


71986 92:40:80 


ADDL3 
B 


AX-11 Blis 

LINKER. SRCJLNKIMGOUT 
DMTBLKS, RO, FILEBLK 
#6, LNKSGL_CTLMSK 


. g 
#2, LNKSGL_CTLMSK as 
LNKSGW LSYMBOLS, R 


"FILEBLKS 

P), #0, #80, SRMS_PTR 
, SRMS PTR 
a 


FI 
(S$ 
83 
BLKS SRS PTR+16 


aw = Mme 
aaa 


, RI 
AMS_PTR+48 
), SRMS_PTR+52 


#15, RO 
RO, SRMS_PTR+53 
#512, S$RMS_PTR+54 


R 
#32, IMAGEFAB+7 
64$ 

#32, IMAGEFAB+7 


#3, LNKSGL_CTLMSK+2, 65$ 
Hig, IMAGEFAB+6 


#32, IMAGEFAB+6 
TWAGEFAB, LNKSAL _IMGRAB+60 


-(SP) 

LNKSGT_JPILST 

-(SP) 

=(SP) 

#7, SYSSGETJPI 
LNKSGL_FILESLEFT, #3 
#0, LNKSCLOSEFILE 

mA 


#1, SYSSCREATE 
- ekraael 


A 
1, SYSSCONNECT 

RO, ERRORCODE 

LNKSAL_IMGRAB+12, RMSSTV 

ERRORCODE, 70$ 


sr3e V4.0-74 


7 
-B52;1 


sated ataded abad 
Mvw VVIWM WwW 
SNNV AOS Oo 
Frno OOO wisS 


LN) 


< 
i] 


a ee ee oe ee ee ae a eS eS ae 


ee ee NO ES SS ee eee eee ee 


= \ 


| 
1 AX-11 Bliss-32 V4.0-74 Page 38 LNt 
: LINKER. SRCILNKIMGOUT B32; 1 g 8) vo 
52 DD 00719 68$:  PUSHL  RMSSTV : 1587 i] 
OB OME. OOF Oorte PUSHAB IMAGEFAB™ : 1586 | 
000000006 00 1 FB 00721 CALLS #1, LNKSFILNAMDSC : 7] 
0 DD 00728 PUSHL R : : 1 
000000006 : DD f ¢ PUSHE ; IN$_OPENOUT : 
000000006 00 5 FB 007 ; CALL +. LIB$SIGNAL : : 1] 
000000006 00 1 BA 139 69$: B1¢B #1, LNKSGL_CTLMSK : 1589 : 
20 AE g 0741 70$: PUSHAB IMAGEFAB : 1593 : | 
000000006 90 oi FB 0744 CALLS #1, LNKSFILNAMDSC : ; | 
1 000000006 00 00 0074 MOVL. LNKSGL_IMGFIL, R1 ; 1594 : | 
16 AI 60 08 28 0075 MOVC3 #8, (RO), : :] 
00000000" EF 32 AE 80 0073 IMAGEFAB+2, LNK$GW_IMGIFI + 1596 : 
00000000" EF 00000000' EF 3c 0075F MOVZWL LNKS$GW_HDROLKS, CURVBN : 1598 : 
00000000" EF 6 0076, INCL CURVBN ; : | 
10 AE DD 007 : PUSHL ISDLIST : 1600 : 1 
39 DD 0077 PUSHL  ISDNUM ; : 
00000000v EF 02 FB 00775 CALLS #2, WRITEISECTS ; : | 
14 AE DD 0077C PUSHL SHRISDLIST + 1601 3 | 
5A DD 0077F PUSHL SHRISDNUM : : 1 
00000000v EF 02 FB 00781 CALLS #2, WRITEISECTS F : } 
00000000" EF B85 00788 TST LNKSGW_HDRBLKS : 1603 3] 
09 13 0078E BEQL 1$ ; : | 
7E D4 00790 CLRL = = (SP) + 1604 3 
00000000V EF 01 FB 00792 CALLS #1, ISDTOHEADER ; : | 
50 00000000° EF 00 00799 71$:  MOVL DSTBUFFER, RO + 1606 3 | 
A 13 007A0 BEQL 72$ : 2] 
00000000' gs 83 OO7A TSTW LNKSGW_DSTBLKS 3 1607 3) 
2 13 OO7A BEQL : : 
00000000" €EF 00000000° EF BO OO7AA MOVW § CURVBN, LNKS$GW_DSTVBN + 1609 3 
0 DD 00785 PUSHL RO : 1610 3 
00000000' EF BD 00787 PUSHL  CURVBN : 31 
7E 00000000' EF 3C 007BD MOVZWL LNK$GW_DSTBLKS, -(SP) : 31 
00000000V EF 03 FB 007C4 CALLS #3, WRITESECTION ; ; 1 
73 50 9 007¢B BLBC ~—_ RO, : :] 
50 00000000' EF C O07 CE MOVZWL LNK$GW DSTBLKS, RO > 1612 31 
00000000' EF 0 CO 0070 ADDL2 RO, CU ; : 1 
50 000000006 90 DO 0O7DC 72$: MOVL LNKSGL_DMTBUFFER, a0 > 1615 31 
6 1 oo7eS BEQL % : 3 
00000000' EF p5 007€5 TSTL  DMTBLKS : 1616 2 
— 13 007EB BEQL 7 : 31 
00000000" EF 00000000 Ef pO O7ED MOVL CURVEN, DMTVBN : 1618 3] 
0 DD OO7F PUSHL R > 1619 31 
00000000' EF DD OO7FA PUSHL CURVBN : 3 | 
00000000" EF DD 00800 PUSHL DMTBLKS ; 3 | 
00000000v F ; FB S803 CALLS #3, WRITESECTION : : 
00000000' EF 00000000" EF CO 3 ADDL2 OMfBLKS, CURVBN > 1621 ; 
29 000000006 060 02 €1 8 73$: BBC #2, LNKSGL_CTLMSK, 76$ > 1628 : 
00000000° FF 83 6 Ist NKS$GW_IMGBLKS : 1630 ; 
00000000' Ff dD 6 B PUSHL HEADER_DESC + 1632 : 
1 po 1 PUSHL @# : : 
7E 00000000' fF C 00833 MOVZWL LNKS$GW_HDRBLKS, -(SP) 3 3 
00000000v_ EF 3 FB OO83A CALLS #3, WRITESECTION ; : 
| 


i$Beoct9Bs 90:08:35  YAHcHE BLega2 wese74g, | Page 


E 4$: BLBC Rg. 78$ s 

98 St E td 5$: BBS » LNKSGL_CTL Bake 77$ 5 
1 G 3 4 $: BBC LNK KoGL CTLMSK, 78$ 3 
00000000" EF 9F 54 778: PUSHAB tNkSAL GRAB” 3 

000000006 01 FB QO85A CALLS SYSSD1SCO ONNECT ; 
00000000" EF 00000000" EF B80 00861 MOVW CURVEN, LNKS$GW_GSTVBN $ 

04 0086C 78$: RET 3 


; Routine Size: 2157 bytes, Routine Base: S$CODES + 0458 


F 13 
$00 1erSep-1986 12:40:80 ELTNKERSSRESLAKIMNGOUT-692;1 ee 


outine inchdrsize (numisds, isd_list) : novalue = 


mal 
2 


oowono © 09 09 09 OD 09 09 09 09 09 09 SII NI SII NIA OOP AOA AOOUIUIVIVTM 


is = .isd_list C.iJ; 
hdrisd = isd Cisl$t_hdrisd]; 


isd_size = (if .isd eql 0 
then hdrS$k_minfill 


IF ZERO THEN TERMINATING ISD 


647 r 
648 ! 
649 ! THIS ROUTINE RUNS THROUGH THE ISD'S IN THE LIST AND 
650 ! ADDS THEIR HEADER SIZE CONTRIBUTION UP. THIS ROUTINE 
o2) MUST BE CALLED AFTER THE ISD'S HAVE BEEN SORTED. 
£38 i THIS ROUTINE IS CALLED WITH isdlist POINTING TO A 
654 ' LONGWORD OF ZERO WITH numisds=1 TO TERMINATE THE 
$2? ENTIRE SEQUENCE OF ISD's. 
889 
658 
$22 isd_list : ref vector C,long]; 
08) bytes_in_block : initial (first_block_size) ; 
gg isd_size, 
664 isd : ref block C,bytel, 
237 hdrisd : ref block C,byteJ; 
667 incru i from 0 to .numisds-1 ! PROCESS LIST OF ISD's 
? . do begin 
670 
2 1 
8 
i 
5 


ee ee ee ee ee a ee ee a a ed ad ad dd 
ANN NNOO 


=PINPINIPININI HMA BSB PAE & FWWIWIAADININPININPINPINPINININDD 2 OO OS OS Oe 
- o ao- 
o £ #8 
o 3 ve 
o ~ 
- P= 


of else ehdrisd Cisd$w_size] 

676 if .b tes_in_block lssu (.header_size + .isd_size) ' IF THIS ISD WILL NOT FIT WITHIN 
677 then = ' THE CURRENT HEADER BLOCK 

678 Lnk$gwihdrblks = .lnk$gw_hdrblks + 1; ! INCREMENT THE BLOCK COUNT 

679 header_size = 0; . ! INITIALIZE HEADER SIZE THIS BLOCK 
680 bytes_Tn_block = subseq_block_size; ! RESET USEABLE BYTES 

ret end; 

$88 header_size = .header_size + .isd_size; ! ADD TO THE CURRENT BLOCK SIZE 
one end; 

ty) if .isd_ list (0) eql 0 ! IF TERMINATING ISD, ACCOUNT FOR 
ret then Lnk$gw_hdrblks = .lnk$gw_hdrblks + 1 ; ! THIS, THE LAST, HEADER BLOCK 
689 return; 

690 end; 


-PSECT SOWNS,NOEXE,2 


QOO001FC 00070 BYTES_IN_BLOCK: 
~-LONG 508 : 


-PSECT SCODES,NOWRT,2 
OOFC 00000 INCHDRSIZE: 


13 
18-Sep-1984 00:00:24 YAX=11_BLiss-32_v4,0-74 p ‘a Ls 
1e-8ep-1984 9:00:80 EMTNKeRSRESLAKIMGOUT. 231 a 04 


.WORD Save R2,R3,R4,R5,R6,R7 : 1647 
57 99000000" EF 9€ 02 MOVAB  LNKS$GW_HDRBLKS, R7 : 
6 00000000" EF Hi 0 MOV HEADER SIZE, RE : 
55 04 AC 1 ¢3 (A417 SUBL3 #1, NUMISDS, R t 1667 
3 4 061 CLRL i + 1669 
: 11 1 BRB $ : 
50 08 BC4 0 9019 1$ MOVL @ISD_LISTCIJ, ISD : 
51 18 AO 0 4 MOVAB 24(RO), HDRISD + 1670 
50 D5 000 TSTL 180 : 1672 
83 12 000 BNEQ $ 5 
54 @ DO 00026 MOVL #2, ISD_SIZE : 
0 i 99 9 BRB 3$ : 
54 $i C B 33 MOVZWL (HDRISD), ISD_SIZE ; 
52 66 4 (1 000 5 3 ADDL3 ISD_SIZE, HEADER SIZE, R2 + 1676 
52 04 Ab D1 B88 CMPL BYTES_IN_BLOCK, R2 3 
OA 1€ 00036 BGEQU 4$ : 
67 86 00038 INCW  LNKSGW_HDRBLKS : 
66 b4 O003A CLRL HEADER SIZE : 
04 Ab O1FC 8F 3C 0003C MOVZWL #508, BYTES_IN BLOCK 3 
66 54 CO 0004¢ 4$: ADDL2  1SD_$1ZE, HEADER_SIZE > 1683 
33 D6 0004 INCL I > 1667 
55 53 1 90047 S$: CMPL I, RS : 
cD if: 004A BLEQU 1 F 
08 BC D5 0004C STL a@ISD_LIST + 1686 
0¢ 12 0004F BNEQ g : 
67 B86 00051 INCW  LNKSGW_HDRBLKS : 1687 
04 00053 6$ RET : 1690 


1674 
1678 
1679 
1680 
16 
16 
; Routine Size: 84 bytes, Routine Base: S$CODE$ + OCCS 
| 


AX-11 Oi rears v4.0- 


H 13 
1o2805- 1386 93:28:85 «| Eiken sre sine imcooT B92: 
: novalue = 


IMAGE SECTION DES 
URES THAT THE UNU 
I.E. VALUE OF HDR 
—_— THAT THI 


routine isdtoheader (isd) 
i THIS ROUTINE COP! 
! IMAGE HEADER AND 
! BLOCK IS -1 FILLE 
ARGUM $s 0, IT 


! 
begin 
map 


OWONOULS WN 


ARGUMENT IS A POINTER 
FIRST BLOCK HAS 2 BYTES RESERVED 


isd : ref block C,byte); 
bytes_in_block : initial (first _block_size) ; 


lolol) SSSSSesesess 


local 
isd_size; 


(if .isd egl 0 H 
then hdrSk minfill : 
else .isd Cisd$w_size] ! 

if .bytes_in_block lssu (.header_size + .isd_size) 

then begin : 
(,header_ptr + 511) and not 511; } 
t 


header_ptr 
subseq_block_size; 


ooo 


CNAUNEWN —OOONOUE WN "CO OONOUS wn — 


G (NULL) ISD 

AL SIZE 

D WILL NOT FIT 

R_IN THE CURRENT BLOCK 
E EXT BLOCK 

E OF THIS BLOCK 
E BYTES 


isd_size = 


header _size 
bytes_Tn_block 
end; 


z2wa=a3coe MC 
mmnrcmas mon 


ader_size + .isd_size; 
f .isd neq 0 ‘ 
then ch$move (.isd_size, .isd, .header_ptr) 
else begin 
f .lnk$gl_ctlmsk CinkSvigl ii 
then (,header_desc (0) +~510)<0,16> = 3; 
che till (0, .isd_size, .header_ptr) 
en 


header_size 


=. UPDATE HEADER SIZE 
header_ptr = ( IF TH 


IS_ISN'T THE END OF IT 
ayes COPY IT IN 


WN —OOONOUVESWN (OO OONOUS WN OOD 


oO 


i$ CLI, 
L IMAGE ACTIVATOR HERE 
INSERT MINIMUM ISD OF 0 (END OF LIST) 


a a a kk a a dd dd 
SN NNN NSS NSS NNN SSSI SI IIOP OOOO 


NIN FESS SWANN NNAWIWAANINIWIIAIDIPINININININIDN 2 2 OOO 


Now 


POPEPoPononononononofonoronononofnofory 
MRMNMNNINNININ 2 3 tS SS S| OO 


return; 
end; 


Pe Se Sees Oe Be Oe Se Se Ge FHSS Ge Be Se Se SF Se Se Se SH Se Seas See SH Se Se Ss esss sees Besse 
a a a ts a a ts 4 is a a a a a a es i 4 4) 5 ts ss ss a ts 


-PSECT 


000001FC 00074 BYTES_IN_BLOCK: 
“LONG 


~PSECT 
OOFC 00000 SSOTONEAD ER: 


57 00000000" EF 9E 0000 
51 04 ac D 
OOF 


Z Be oh aoe Rav 


Wie 
— 


SOWNS ,NOEXE ,2 


508 


SCODES ,NOWRT ,2 


Save R2,R3,R4,R5,R6,R7 
HEADER PTR. R? 
SD, RT 


#2, ISD_SIZE 
2 


13 
LINK_IMGOUT 14. -Sep- 4 AX-11 Bliss-32 V4.0-74 Pp LNB 
1042006 14- wep 1382 99: 98: $4 LINKER. SRCJLNKIMGOUT.B32;1 — 3 vo« 
& 61 3C 00014 1$: MOVZWL (R1), ISD_SIZE : 1709 
50 36 04 A? Ci 8 17 2$: ADDL3 HEADER Size, ao 1ZE, RO ; 134i 
5 a ie 3 cnet. gyTeS_TN_BL BLO 3 
5 1FF OF OC ADDL B11. HEADER_PTR, RO : 
29 tf d00001FF iH (B A BICL3 #511 nO, JHEADER. PTR : biohen 
A? b4 ‘ CLRL HEADER, Sf + 1714 
o¢ A? oee F MOVZWL #50 pyres IN_ BLOCK + 1715 
4 A? 6 ¢ 8 3$: ADDL2 Isp_Size, HEADER_SIZE : 1718 
7 13 00041 BEQL 4$ : 
00 87 61 i é 0045 MOVs 1SD_ SIZE, (R1), @HEADER_PTR : 
09 000000006 00 05 €1 004A 4$: BBC #5 LNKSGL CTLMSK+3, 5$ : 
50 F8 A? DO 00052 MOVL HEADER : 
O1FE CO 03 80 00056 MOVW ; 
56 00 6E ie 0 ¢ 00058 5$ MOVCS #0. tae i ISD_SIZE, @HEADER_PTR : 
67 8 DO 0006¢ 6$: MOVL 3, HEADER_PTR + 1719 
04 0006 RET : 1728 


; Routine Size: 102 bytes, Routine Base: S$CODE$ + 0019 


} 
1 
1 
1 
1 
| 
| 
| 
1 
1 
1 
1 
| 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SS —__— 


NK_ T 13-43 S$ep-1984 00:0 AX-11 Bliss-32 v4.0 P 44 
perb08 12-88-1386 93:20:95 «Hence SResincimcoor 682; a 


routine writeisects (numisects, isd_list) = 

i THIS ROUTINE WRITES OUT THE SPECieleD NUMBER OF IMAGE SECTIONS fe 
} i Nie ee FILE. ISDLIST IS A LIST OF THE ADDRESSES OF THE ISD'S 

i 


begin 


ap 
isd_list : ref vector C,long); 


if .nmumisects neq 0 
then incru isdnum from 0 to .numisects- 1 LOOP THRU ALL IN LIST 


° tnksat curisd = .isd_list C.isdnum]; POINT TO ISECT DESCRIPTOR 
bind. curhdrisd = Lnk$gl_curisd Cisl$t ohtrteds k C.byted: ! NAME PART FOR HEADER 
C e 
ink$gl_curclu = .lnk$gl_curisd Cisl$l “aia 4 
< -curhdrisd is tts ppt ! IF A GLOBAL SECTION 
. (nk$gl_cur * Cis($l_bufadr] neq 0 ! WITH A BUFFER ALLOCATED 
" readsection (); ! GO READ IT FROM ITS FILE 


if not .curhdrisd fi a 


! SET CLUSTER DESCRIPTOR ADDRESS 


PIPIPIPITIPIPIPININININININIPINPVTPy 
PPADS SITIES BB BEEP EP 
DONAOMNLS WN —ODONOUS Oo 


$v_dzro) ' IF NOT A DEMAND ZERO SECTION 

and -lnk$gl_curisd Cisl$l_bufadr] neq 0 ' AND A BUFFER IS ALLOCATED 

then curhdrisd Cisd$l_vbn] =".curvbn: ! INSERT THE VBN OF BINARY 

if (Cif  .tlnk$gl_ctlmsk Clnk$v_sys] ! JF A SYSTEM IMAGE WITH A HEADER 
then .ink$gi-ctlmsk Clnk$v “sysheedr) , one 
,s0e true ' OR A REGULAR IAMGE 


{? if “LnkSg wl ghgrptks neq 0 ' IF IMAGE HAS A HEADER 
and Sorel risd Cisd$w pagent] neq 0 ' AND SECTION IS NON ZERO IN LENGTH 
then isdtoheader (curfdrisd); ! INSERT ISD IN HEADER 


if not .curhdrisd Cisd$v_dzro) ! IF NOT A DEMAND ZERO SECTION 
-_ , A a $gl_curisd Cisl$l_bufadr) neq 0 ' AND A BUFFER IS ALLOCATED 
en begin 
if not writesection (. <gurhee ted Cisd$w_pagcnt] ! THEN WRITE IT OUT 
eet 
-lnk$gl_curisd Cisl$l_bufadr] ! TO THE FILE 


GIVING UP ON ERROR 
UPDATE TO NEXT AVAILABLE VBN 


dz 
L$ 
J 
tt 


PUPP PUPS EB BS BB BEE EMA. ANI 


WN OS OONAUE WN $0 ODNOUES WIN —OOONOUEWN"O0 


SOE SS FESS 


NOUS —"OOOnNOu 


then return false; 
cucven © = .curvbn + .curhdrisd Cisd$w pagent); 
end; 
end; 
end; 
return true 
end; 


Se Se Se Se ee Ge Be Ge Se Se FH Se Ge FH He Ge Se FF Ss Oe Se OF Ss Be Ge BH Se Oe Se BF Se Se Se SHSe SH Se SESH Se Se Se Sse Sees eseSeeee 

ee ee ee ee ee 

Oe ee ee ee ee ee ce a a ee ee el ee a ed ad ed ad ad 

Se Bi i Dit Sin in Bit in ppm em pm SDS I te te te te tet ee | 

PRIDE DDSI BS BE TI BB BB BE EEE EE PUN 2 OOO 
3 


SSN NN 


@ 
~ 


007C 00000 WRITEISECTS: 
WORD Save R2,R3,R4,R5,R6 : 1729 
56 00000000° EF 9€ 00002 MOVAB CURVBN, RO } 


vA 


54 04 


000000006 


00000000v 
oc 08 


he 
08 000000006 
0C 000000006 


FF28 
25 08 


00000000v 


; Routine Size: 173 bytes, Routine Base: 


55 sama ° 4 


oo-— © 
@coc# cc 


oO 
oo 


02 


08 


08 
02 


02 


SCODES + OD7F 


:40:80 


o 
Oo 
> 
wo 
— 
wn 


@o 
oO 


SONOS NOFARPARA—SPROCMOHPOCOROPRAROOCOY SP PALO 
DAA & EAN AAO ION 2 3 


SOCSCCCOCOOCOOCOOOCOSOOOOOOOOoOoOOoOoO 


SOOSCCCCOCOC COCO OOOCOOCOOOOOOOOoOoOoo 


n 
nm 
DUIWWIWON OWN AO 19 OV PU NIN SD FOVUMVO NONMOOMWIWwm 
on 
PAH 


—s 


> ooo Co: ~“ 
SEDARIS INE VOSS 
Oo 
bad 


Oo 
FP OMK F KH AOM OMNI OWMOOD SD WU “QWMOODWMDOMOO— Fw roum 


SOSOSOOCSOSSOSSSOOSSSOOSOSSOOSOOSOOSOOOOOOOOOOOOOOOOOOOSO 


, 4 SOW FGIOWM Wooo -VT9MnS -MMMo-VG 9 MOMS OVI -GdFOWw9 Oo 
Soooooooooooooooooeo 


ee eo lofefofofelololololololololo) 


w 
o 
>> 
o> 


LNKS$GL_CURISD, R5 
NUAISECTS 


NUMISECTS, R4 
UM 


)°_LNKS$GL_CURCLU 
+ 3§ 


CURVBN, 12(R2) 
#3, LNKSGL_CTLMSK, 5$ 
#1 LNKSGL_CTLMSK#3, 68 


R 

Re ISDTOHEADER 

#2. B(R2), 7 
NKS$GL_CURISD, RO 
(RO) 

LNKSGL_CURISD, RO 
(RO) 

CURVBN 

2(R2), =(SP) 

#3, WRITESECTION 


R 
2(R2), RO 
RO, CURVBN 
1SONUM 


N 
ISDNUM, R4 
9$ 
2$ 
#1, RO 
RO 


AX-11 Bliss-32 V4.0- 
LINKER. SRC JLNK IMGOUT 


LISTCISDNUM], LNKSGL_CURISD 
-CURISD, RO 


; Routine Size: 92 bytes, Routine Base: S$CODES + OE2C 


a 


13 
LNK_IMGOUT 18-Se 1984 00:00:24 AX-11 Bliss-32 V4.0-74 Page 46 
y0e=008 1 =3007 1382 99:23:83 LINKER. SRCJLNKIMGOUT.B52;1 . (9) 
; 1289 1778 1 global routine Ink$getfixsize = 
ie ug fete 
31 38 1781 ' THIS ROOUTINE COMPUTES AND RETURNS AS A VALUE THE SIZE (IN PAGES) 
; 129 17 ¢ ' REQUIRED FOR THE FIXUP SECTION 
BRE 
:1 1785 return ((((. ink$gl_shrimgs*2)+(.lnk$gl_shrsyms+1) ! NUMBER OF SHR IMGS REFERENCED 
37 39 17 $ 2  tnkSgl spe gt fi *- ' PLUS NUMBER OF SPECIAL G* FIXUPS 
>; 1298 17 4 +(.Lnk gf shradre2)<(.\nk$ol_adrets+l)) #4) ' PLUS THE SIZE FOR THE .ADDR FIXUPS 
: 1299 1788 3 +(. ink$gl_shrclstrs+1)*shl$c_length ' PLUS THE SIZE OF THE SHL LIST 
; 1500 1789 4 eR pests ard oe bs Wise Length) ! PLUS ANY EXTRA SHL'S REQUESTED 
; 1301 1790 of.tokSel rere sd+1)*icp$c_length+4 ! PLUS THE SIZE OF THE FIXUP INFO 
5s } oF 1791 +iaf$c_Tength+511)/512 ! PLUS THE FIXED PART, ALL ROUNDED UP TO NEX 
3; 1 1792 end; 
0000 00000 ENTRY LNKSGETFIXSIZE, Save nothing : 1778 
51 000000006 88 4 it3 OVL LNKS$GL_SHRIMGS, R1 : 1785 
50 000000006 00 8 VL LNK$GL gna SRS. RO 3 
50 6041 3E ay MOVAW (RO)CRTJ, RO 3 
51 000000006 00 00 00014 OVL LNKSGL_SPCGFIX, R1 > 1786 
51 59 CO 00018 ADDL2 -_R : 
50 000000006 00 0 i ph OVL Lae Set paren. RO : 1787 
51 6140 0002 MOVAW (R1)CROJ, R1 : 
51 000000006 00 ¢ 9594 ADDL2 LNKSGL_ADREFS, R1 3 
50 90000000' 4 06 00030 ASHL 46 ENE S6L SHRCLSTRS, RO : 1788 
0 6041 DE 00038 MOVAL (RODERI), R : 
51 00000000G 00 06 0003C ASHL #6, LNKSGL_SHLEXTRA, R1 3; 1789 
51 50 CO 00044 ADDL2 »_R 3 
50 eeae $5 EF 00 00047 VL LNK$GL_RPROTISD, RO : 1790 
50 0293 C140 7E QO04E MOVAQ 659(R1SCROJ, RO 3 1785 
50 00000200 8F C6 00054 DIvL2 #512, RO : 1791 
04 00058 RET 3; 1792 
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: 1793 1 routine storespcgfix (node,travinfo) = 
; i595 § begin 
3 1738 ! THIS ROUTINE IS CALLED BY THE TRAVERSE_TREE ROUTINE FOR EACH 
: 173 ELEMENT IN THE TREE. 
: 1738 ! INPUTS: 
: 1801 i NODE ADDRESS OF CURRENT NODE 
: ! oe TRAVINFO ADDRESS OF INFO SET UP BY LNKSCREATEFIX 
; 1 map 
: 1805 node : ref Bigeks rte 
; : BS travinfo : ref vector , long); 
: 1808 2 bind 
; 1809 bufloc = .travinfol0]) + L.npéptengeth., fixated - .travinfol1)), 
: 13\% storeaddr = bufloc : vectorLl,long]; 
: 1al¢ storeaddr(0) = .node(spcr$l_offset); 
; 181 return true 
$ 1814 1 end; 
0004 00000 STORESPCGFIX: 
-WORD Save R2 
50 08 AC 00 00002 MOVL TRAVINFO, RO 
52 60 00 BR88 MOVL (RO), R2 
51 4 A ° 00 MOVL none R1 
50 OE Al 4 AS : 90D SUBL3. 4(ROS, 14(R1), RO 
6042 9F 0001 PUSHAB (RO)CR2] 
9E OA Al 00 00016 MOVL 10(R1), a(SP)+ 
50 01 DO OOO1A MOVL #1, RO 
04 0001D RET 


; Routine Size: 30 bytes, Routine Base: S$CODE$ + 0E88 
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H } § ! 13 } routine inkScreatefix (shrclunum,clusterlist,adrclunum,adrclulst) = 
; } 
: 13350 1 i$ 1 ! THIS ROUTINE ALLOCATES BUFFER SPACE AND FILLS IN THE 
; 1331 1 18 1 ! FIXUP IMAGE SECTION FOR COMMUNICATION WITH THE IMAGE 
; 1 § 1819 1 ! ACTIVATOR. 
3 3 1820 1! 
$ : : : 1 : INPUTS: 
: 1336 1 4 1! SHRCLUNUM NUMBER OF ITEMS IN CLUSTERLIST 
3; 1337 1824 } ! CLUSTERLIST ADDRESS OF LIST OF CLUSTER DESCRIPTOR ADDRESSES OF SHAREABLE IMAGES 
3 7 1825 : ADRCLUNUM NUMBER OF ITEMS IN ADRCLULST 
; 1339 1 $ 1! ADRCLULST ADDRESS OF LIST OF CLUSTER DESCRIPTOR ADDRESSES OF NON-SHR IMAGE CLUSTERS 
3; 1340 1 1! REFERENCED VIA .ADDRESS | 
3 1341 1 8 1! 
i 1348 18 begin | 
3 1 1830 map 
3 1344 1831 clusterlist : ref vector f- tong). 
: 1345 18 é adrclulst : ref vector C,long] ; 
3 1368 18 loca 
| 1834 status, 
3; 1348 1835 clusterindex, 
3; 1349 1338 ixsize, 
; 1350 183 fixbuf : ref block C,bytel, 
: 1351 1838 symbolblock : ref block byte, 
; 1326 1839 adrblock : ref vector C, ongi, 
3; 135 1840 shrnamlist : ref block C,byteJ, 
3; 1354 1841 ahr ing ‘aden, 
3; 1355 1842 curis : ref block f-byte}. 
> 1356 1845 curhdrisd : ref block Cibyte) 
3 1357 1844 spcgfixvec : ref vector + ongi, 
; 1358 1845 travinfo : vector C2,long], ! INFO FOR ACTION ROUTINE OF TREE TRAVERSAL 
3; 1359 1946 reprotvec : ref block C ayte) 
; 1360 184 extadrvec : ref vector C, ongi, 
3; 1361 1848 extindex, 
3; 1 1849 fixisdhdr : ref block C byte. 
3; 136 1850 dotadrvec : ref vector C, ong), 
3 1308 193) dotadrindex ; 
3 Hs 1838 fixisdhdr = Lnk$gl_fixisd Cisl$t_hdrisd) ; ! POINT TO PART BOUND FOR IMAGE HEADER 
3; 1368 1855 if .lnk$gl_ctlmsk Clnk$v_protect) ' IF /PROTECT 
: 138? 1336 then fixisdhdr Cisd$v_protect] = true ; ' THEN PROTECT SECTION 
: 13) 1338 fixisdhdr Cisd$v_fixupvec] = true ; : ' DECLARE ISD TO BE FIXUP VECTOR SECTION 
27 % 185 fixsize = Ink$getfixsize () ; : GET SIZE OF FIXUP SECTION NEEDED 
3 127 1860 fixisdhdr Cisd$w_pagcnt)] = .fixsize ; ; Z ! SET NUMBER OF PAGES INTO ISD 
: 1378 : 1 qyetus = iakSreques mem (.fixsize, ink$gl_fixisd Cisl$l_bufadrJ); ! ALLOCATE SPACE FOR SECTION | 
$ not .status 
: 1378 1803 then begin ; ' BUT IF IT FAILS, ISSUE AN ERROR MESSAGE 
: it 1 signal (.status, 0, Lin$_noimgfil) ; | 
3; 1378 1865 ink$gl_ctlmsk C(nk$v_image) = false ; 
3; 1579 1 return true | 
; 10 : $ end ; 
: 1382 1 e ' ALLOCATE VIRTUAL MEMORY FOR FIXUP SECTION. THIS IS DONE TO ENSURE THAT | 
3 i; 3 0 ! WE DID NOT BASE THE WORLD DURING PASS 2 AND PUT A SHAREABLE IMAGE WHERE 
3: 1384 1871 ! WE THOUGHT THE FIXUP SECTION WAS GOING TO GO | 
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f a -lnk$gl_fixisd Cisl$v_memalo] 

en begin 

ifenot + > ahcn (.fixisdhdr Cisd$v_vpn]*9,.fixisdhdr Cisd$w_pagcnt)) 
en begin 

signal Spee AA yy FE imgfil Cfdb$q_filename],lin$_noimgfil) ; 


ink$gl_ctlmsk Clnk$v_image] = false 
return true 


end ; 
aa. Fiat Cisl$v_memalo] = true ; 
end ; 


((. Unk$gl_shrimgs*2)+(.lnk$gl_shrsyms+1))*4 ; 


f .lnk$gl_spcgfix neq 0 : IF THERE ARE SPECIAL G* FIXUPS 
hen reprotvec = (.lnk$gl_lastgadr - .travinfo [1]) + .fixbuf THEN SET REPROT VEC AFTER THAT 


i 
t 
else reprotvec = .spcgfixvec ; OTHERWISE RIGHT ON IT 
s 
d 


hrnamlist = .reprotvec + (.lnk$gl_rprotisd+1)*icp$c_length + 4 ; ! SET ADDRESS OF SHR IMG NAME LIST 
otadrvec = .shrnamlist + ! SET ADDRESS OF .ADDR VECTOR 
(.Lnk$gl_shrclstrs+1+.lnk$gl_shlextra)*shl$c_length ; 


SET OFFSETS TO THE SEGMENTS INTO THE FIXUP ISECT HEADER 
fixbuf Ciaf$l_chgprtoff] = .reprotvec - .fixbuf ; 


SET OFFSET TO CHANGE PROTECTION DATA 


IF THERE ARE G* FIXUPS 
THEN CALCULATE OFFSET 
OTHERWISE GUARANTEE A 0 


IF THERE ARE .ADDR FIXUPS 
THEN CALCULATE OFFSET 
OTHERWISE GUARANTEE A 0 


CALCULATE OFFSET TO SHR IMG NAME LIST 
INIT INDICES INTO THE VECTORS 


if .lnk$gl sprsyae a 0 
then fixbut bia $l_g_fixoff] = .extadrvec - .fixbuf 
else fixbuf Ciaf$l_g_fixoff] = 0 ; 


if a lob Sel adrefs neq 0 
then fixbu? Ciaf$l_dotadroff] = .dotadrvec - .fixbuf 
else fixbuf Ciaf$l“dotadroff] = 0 ; 


fixbuf Ciaf$l_shistoff] = .shrnamlist - .fixbuf ; 
dotadrindex = shrimgindex = extindex = 0 ; 


‘ 
: SET REPROTECTION DATA FOR FIXUP SECTION 


-reprotvec = .lnk$gl_rprotisd + 1 ; 
reprotvec = .reprotvec + 4 ;_ ; 
reprotvec Cicp$l_baseva] = .fixisdhdr Cisd$v_vpn]*9 - .Lnk$gl_minva ;  ! SET BASE ADDRESS 


fixbuf = .Lnk$gl_fixisd Cisl$l_bufadr] ; 
travinfo [0] = .fixbuf ; ! SET INFO FOR TREE TRAVERSAL 
travinfo (1) = .fixisdhdr Cisd$v_vpn] * 9 ; 
fixbuf Ciaf$l_iaflink] = 0; ! ZERO IMAGE ACTIVATOR LINK 
fixbuf Ciaf$Sw_sizel = ijaf$c_length ; ' SET SIZE OF FIXED PART OF FIXUP ISD HEADER 
fixbuf Ciaf$v_shrJ = .lnk$gl_ctimsk Clnk$v_shrJ ; ' SET FLAGS 
fixbuf Ciaf$l_shlextra]_ = .lnk$gl_shlextra ; ! SET COUNT OF EXTRA SHL SLOTS 
fixbuf Ciaf$l_shrimgcnt] = .lnk$gl_shrclstrs + 1 ; ' SET COUNT OF SHAREABLE IMAGES 
! (+1 FOR CURRENT IMAGE) 
extadrvec = .fixbuf + jaf$c_length ; ! SET ADDRESS OF START OF G* VECTOR 
spcgfixvec = .extadrvec + ! SET ADDRESS OF SPECIAL G* FIXUP VECTOR 
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5 
| 

> 144 1929 reprotvec [Licp$w_npages] = .fixsize ; | :] 
5 144 1930 2 reprotvec Cicp$w-newprt) = prt$c_urew ; : | 
3 1444 1931 reprotvec = .reprotvec + icp$c_length ; ‘ 1 
: 108 1938 5 | 2 
; 144? b ¢ LOOP THROUGH THE LOCAL CLUSTERS AND DO THE IMAGE 0 .ADDRESS REFERENCES : 
: 1449 1936 ¢ if .adrctunum neq 0 ! IF THERE ARE ANY .ADDR CLUSTER REF : 
3 1450 19 then begin 2] 
: 1451 1938 dotadrvec fo) 20; ! INITIALIZE THE FIXUP COUNT : 
: 1458 1939 dotadrvec (1) = 0; i THE IMAGE IS NU : | 
> 145 1940 dotadrindex = 2; ' SKIP THE IMAGE NUMBER AND COUNT OF :]) 
; te: 1304 i mere custertndee from 9 to .adrclunum-1 : LOOP THROUGH THE LIST : 
; 0 begin : 

>; 1456 1968 4 inkSgl_cure ty = ,adrclulst bag eter tgera? : ! PICK UP CURRENT CLUSTER : 
; 1457 1944 4 dotadrvec [0] = .dotadrvec [0] + Petite ork hes Cclu$l_adrcnt] ; ! INCREMENT COUNT OF REFERENCES : 1 
>: 1458 1945 4 adrblock = (mk$gl_curclu ECclu$l_fstadrl] ; ! GET THE LISTHEAD OF ADDRESS BLOCKS : | 
s 1¢25 Pe | ¢ ~~ (adrblock = .a rBlock [C0J) neq 0 ! LOOP THROUGH ALL THE ADDRESS BLOCK ‘ 
; o begin : 

; 1461 1948 6 bind adrcnt = (if .adrblock neq .ink$gl_curclu Cclu$l_lstadrlJ ! COMPUTE COUNT OF : | 
; 1462 1949 6 then clu$c_adrblock - ! ELEMENTS IN THIS BLOCK : | 
; Pe 1339 3 else clu$c_adrblock = .ink$gl_curclu Cclu$l_adrleft] - 1 : 
3 1465 1938 5 incru i from 1 to adrent ! LOOP THROUGH THIS BLOCK : 1 
: 1466 1953 6 do begin 3) 
; 1467 1954 6 dotadrvec C.dotadrindex] = .adrblock C.iJ - .lnk$gl_minva ; ! STORE PC IN NEXT LOCATION :] 
> 1468 1955 6 dotadrindex = .dotadrindex + 1 ; ! MOVE TO NEXT LOCATION 3 1 
3: 1469 1956 6 end 3 | 
3 1470 1957 4 end ; :] 
3 1471 1958 4 end 3 1 
$ ire 1959 2 end ; 3 | 
3 147 1960 2 3 1 
3 1474 1961 2! 3 1 
3; 1475 1206 § ' FIND ALL ISECTS THAT NEED TO BE REPROTECTED IN THE LOCAL CLUSTERS. IF THE 3 1 
; 176 1307 CLUSTER IS A SHAREABLE IMAGE AND CONTAINS SPECIAL G* FIXUPS, DO THOSE NOW. : ! 
3; 1478 1965 $ ink$gl_curclu = Lnk$gl_clulst ; ' POINT TO START OF CLUSTER LIST 3} 
3 1479 1966 2 while Tink$gl_curclu =". nk$gl_curclu Celu$l_nxtclu]) neq 0 ' LOOK AT ALL CLUSTERS $1 
: 1480 1967 do if not .lnk$gl_curclu CcluSv_shrimg] ! BUT IGNORE SHAREABLE IMAGES 3 1 
3; 1481 1968 then begin s 
3 He 4 1969 curisd = Lnk$gl_curclu Cetus fstisd] ; ! POINT TO LISTHEAD : | 
3 148 1970 3 while (curisd = .curisd isl$T_nxtisdJ) neq 0 ' LOOP THROUGH ALL ISECTS THIS CLUST : | 
> 1484 1971 3 do if .curisd Cisl$v_reprot] ! JF THIS SECTION NEEDS TO BE REPROT : 

: 168 1376 4 then begin x) 
3 14 1973 4 curhdrisd = curisd Cisl$t_hdrisd] ; ! POINT TO HEADER PART : 1 
: 1487 1974 4 reprotvec Cicp$l_baseva] = .curhdrisd Cisd$v_vpn]*9 ! SET BASE VA OF ISECT 3 

; 1488 1975 4 - - LnkSgl minva ; : 
3: 1489 1976 4 reprotvec ficpgw_npages} = .curhdr #4 [ iseSu_pegent ; | AND NUMBER OF PAGES 3! 
3; 1490 1977 4 reprotvec Licp$w_newprt] = .curisd Cisl$b_newprt) ; ' COPY NEW PROTECTION | 
3: 1491 1978 4 reprotvec = .reprotvec + icp$c_length ; ' POINT TO NEXT SLOT $ | 
: pe 1979 ; end ; 3 | 
3; 149 1980 end ; : | 
3 1494 1981 else if .ink$gl_curclu Cclu$l sper ists neq ! SHR IMG--IF IT CONTAINS SPECIAL G* : | 
: 1495 1986 then LibStraverse_tree (Tnk$gl_curclu Cclu$l_sperlst) 3 | 
: yt 19 »storespcgf ix ' THEN TRAVERSE THE TREE AND STORE s | 
3; 149 1984 travinfo : 

: 1498 1985 S'; ; 
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; NOW LOOP THROUGH THE CLUSTERS AND STORE THE INFORMATION 


shrnamlist Cshl$b_shl_size) = shl$c_Llength; 

shrnamlist = .shrnamlist + shl$c_length ; 
if .shrclunum neq 0 

then incru clusterindex from 0 to .shrclunum-1 


° peaie 
ink$gl_curclu = .clusterlist C.clusterindex] ; 


Fill in Length of first SHL$ entry... 
LEAVE ROOM FOR IMAGE 0 (CURRENT IMAGE) 


FOR ALL SHAREABLE IMAGES 
GET CLUSTER DESCRIPTOR ADDRESS 


COPY THE SHAREABLE IMAGE NAME 
INTO THE SHR IMG LIST 
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shrnamlist = .shrnamlist + shl$c_length ; ! NEXT SHR IMAGE NAME SLOT 
shrimgindex = she jap open v3 ! NEXT IMAGE IN 
f .lnk$gl_curclu Cclu$l_shrsyms) neq 0 ! IF THERE ARE G* SYMBOLS IN 
then begin ! THIS CLUSTER 
Local Last_symbol : initial (0) ; ! POINTER TO LAST SYMBOL (for debbugging) 
extadrvec C.extindex] = .lnk$gl_curclu Cclu$l_shrsyms] ; |! SET NUMBER OF REFERENCES 
extindex -extindex + 1 ; ! NEXT LOCATIO 


extadrvec C.extindex] = -shrimgindex ; SET SHR IMAGE INDEX INTO G* VECTOR 
° LOCATION 


extindex eextindex + 1 ; ! NEXT 
symbolblock elnk$gl_curclu Celu$l_shrist] ; GET LIST OF SHR IMG SYMBOLS THIS C 
while .symbolblock neq 0 D PUT THE 
do as he OFFSETS INTO THE G* VE 
extadrvec C.extindex] = .symbolblock Csym$l_offset] ; STORE OFFSET FOR THIS SYMBOL 
extindex -extindex + 1; XT G* VECTOR LO 


! NE 
! REMEMBER LAST BLOCK (for debbuggin 
! LINK TO NEXT SYMBOL 
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Last_symbol : -symbolblock ; 

symbol Lock = :symbolblock Esym$t_shrink] ; 
eng ; 

end ; 


' 
IF THIS CLUSTER HAS .ADDR REFERENCES THEN STORE THEM ALSO 
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$$ 7 ys lL_curclu Cclu$l_adrcnt] neq 0 

en begin 
38 dotadrvec -dotadrindex] = .lnk$gl_curclu Cclu$l_adrcnt] ; ! STORE NUMBER OF SUCH REFERENCES 
39 0 dotadrvec C.dotadrindex+1] = .shrimgindex ; ' SET SHR IMG INDEX INTO .ADDR VEC 
40 0 dotadr index = ,dotadrindex + 2 ; ' INCREMENT THE INDEX 
41 0 adrblock = _(nk$gl_curclu CcluSl_fstadri] ; ! GET FIRST .ADDR BLOCK FOR THIS C 
ri} 0 while (adrblock = .adrblock [0]) neq 0 ' LOOP THROUGH ALL .ADDR BLOCKS IN 
4 0 do begin ! THIS CLUSTER 
44 0 bind adrcnt = (if .adrblock neq .lnk q'.curclu Celu$l_lstadrl ' COMPUTE NUMBER 
45 0 then clu$c_adrblock - ! OF ENTRIES IN 
48 6 gise clu$Sc_adrblock - .lmk$gl_curclu Celu$l_adrleft)] - 1 ! THIS BLOCK 
48 : 
rH 036 } STORE THE ADDRESSES IN THE .ADDR VECTOR 
51 O38 incru i from 1 to adrcnt 
26 8 9 do beg n 3 ‘ ‘ 
5 40 dotadrvec C.dotadrindex] = .adrblock C.i] - .lnk$gl_minva ; 
32 bes Soteer index = .dotadrindex + 1 ; 

end ; 


a —————EE aaa 
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° 1 043 4 
: 1337 044 3 end ; 48 
; 1558 045 end ; 
: 1559 046 
: 1560 047 return true 
; 1561 048 1 end ; 
OFFC 00000 LNKSCREATEFIX: 
WORD e R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 : 1815 
SE 1¢ (C2 90002 SUBL : 
52 000000006 00 18 C1 0000 ADDL ; 4. LNKSGL FIXISD, FIXISDHDR + 1853 
000000006 00 95 00000 TSTB —sLNKSGL_CTLMSk+ + 1855 
04 18 00013 BGEQ ~=sés«é$ : 
OA A2 04 88 00015 BISB2 #4, 10(FIXISDHDR) + 1856 
09 A2 04 88 00019 1$ BISB2 #4. 9(FIXISDHDR) + 1858 
FF6G CF 00 FB 0001D CALLS 40, UNKSCET? Ike Ze + 1859 
58 50 D0 00022 MOVL RO. FIXSIZE : 
02 A2 58 BO 00025 MOVW XSIZE (F IXISDHDR) : 1860 
7E 000000006 00 08 C1 00086 ADDL3 A Np LNKSGL_FIXISD, -(SP) + 1861 
58 DD 00031 PUSHL FAK ; 
000000006 00 02 FB 00033 CALLS , LNKSREQUESTMEM : 
13 50 £8 0003A BLBS ATUS, > 1862 
000000006 8F DD 00030 PUSHL #LINS_NOIMGFIL + 1864 
7E D4 00043 LRL. ss = (SP) : 
50 DD 00045 PUSHL STATUS : 
000000006 00 03 FB 00047 CALLS #3, LIBSSIGNAL F 
41 11 OO004E BRB + 1865 
50 000000006 00 00 00050 2$ MOVL §LNKSGL_FIXISD, RO : 1873 
4A 14 AO 01 £0 00057 BBS 1, 20TRO) ; 
7E 02 A2 3C 0005¢ MOVZWL 2(F IX1SDHDR) P) : 1875 
A2 15 00 Ef 00060 EXTZV ACF EXTSDHOR) RO : 
E 50 09 78 00066 ASHL 9. + ¥ SP : 
00000000G 00 02 FB OO06A CALLS #2, LNKSALLOVIRME 3 
27 50 €8 00071 BLBS ; 
000000006 8F oD 00074 PUSH Se NOIMGF IL : 1877 
7E 000000006 00 14 C1 O007A ADDL3 #20, CNKSGL_ IMGFIL. -(SP) ; 
01 DD 00082 PUSHL ; 
000000006 8F DD 00084 PUSHL PLINS CONF IXMEM ; 
000000006 00 04 FB OO08A CALLS #4, LIBSSIGNAL : 
000000006 00 01 BA 0091 3$: BICB2 #1, LNKSGL_CTLMSK : 1878 
O2AE 1 0009 BRW : 1879 
50 000000006 0 00 90 4$: MOVL LNKs FIXISD, RO > 1881 
14 AO 02 OA B1SB2 RO) : 
50 000000006 00 00 OOA6 5$ MOVL tNkSEL _FIXISD, RO > 1884 
50 08 AO DO OOOAD MOVL “Fl XBUF : 
4 «A 50 DO 00081 MOVL vey, ! : 1885 
a2 1 00 EF 00085 EXT2V RCHIXISDHDR) . R2 : 1886 
5 52 09 8 00088 ASHL *R : 
18 AE : dO O0BF MOVL Re TRAVINFO+4 ; 
60 D4 00 C3 CLRL (F tt ae : 1888 
08 a0 40 8F 98 ¢ MOV7BW > 1889 
00 1 2 €F OOOCA EXTZV peri CTLMSK, R1 > 1890 
01 1 FO 00003 INSV ay #1 TF IXBUF 5 : 


F 14 
LNK_IMGOUT 16-Sep-1984 00:00:24 AX-11 Bliss-32 v4.0-74 Page 53 UNI 
raves tit 14- 3ep-1986 99: 98: $4 LINKER. SRCIJLNKIMGOUT.B32;1 . (11) vO: 
55 000000006 D D MOVL LNKS SHLEXTRA, RS : 1891 
x0. iS 00 8 pare ARNE Aa it : 
1¢ a0 00000000" gf 01 gi 0 £4 ADDL3 His NRL oS RARCLSTRS, 28(F IXBUF ) + 189 
7 40 AO ED MOVAB TADRV EC + 189 
1 900000006 00 D OOF MOVL 64 (RO) *SHRIMGS, : 1897 
3 000000006 p 0 FB MOVL —_LNKSGL~SHRSYMS, 4 : 
1 6341 3E OOOFF MOVAW (R3 R : 
51 04 A741 DE 00103 MOVAL 4 CEXTADRVEC) ERI], SPCGFIXVEC + 1896 
000000006 00 p 0108 Ist LNKS$GL_SPCGFI + 1899 
51 000000006 00 18 #AE C 0110 SUBL3 TRAVINFO+4, LNK$GL_LASTGADR, R1 + 1900 
54 51 50 (Ci 119 ADDL FIXBUF R1, REPROTVEC : 
Q 11 00110 BRB 7 : 
54 1 00 OO11F 6$: MOVL SPCGFIXVEC pREPROTVEC + 1901 
56 00000000° EF D0 00122 7$: MOVL istnes RPROTISD, R6 + 1903 
08 AE OC A446 7E 00129 MOVAQ StREPROTVEC) ERG], SHRNAMLIST : 
51 55 00000000' EF ci 0010F ADDL3 a ett R5, R1 + 1905 
51 5} 8 00137 ASHL : 
55 08 AE DO 00138 MOVL SHRN AML IST + 1904 
6E 40 A14 3 0013F MOV re cu} R5)- Para F 
14 Ad 54 50 ¢3 00144 SUBL Fl XBUF eR RPROTVER. 1E6 ce LXBUF) + 1910 
53 D5 00149 TSTL + 1912 
07 13 00148 BEQL RS ; 
0c ad 57 50 ¢3 00140 SUBL3 FIXBUF, EXTADRVEC, 12(F1XBUF) + 1913 
03 11 00152 BRB $ : 
0c AO D4 00154 8s: CLRL  12(FIXBUF) + 1914 
000000006 00 DS 00157 9$: TSTL —_ LNKSGL_ADREFS : 1916 
07 13 0015p BEQL 10$ : 
10 Ad 6E 50 C3 0015F SUBL3 FIXBUF, DOTADRVEC, 16(F IXBUF) + 1917 
03 11 00164 BRB 11$ : 
10 AO D4 00166 10$:  CLRL. 16(FIXBUF) : 1918 
18 AO 08 AE 50 ¢€3 00169 11$:  SUBL3  FIXBUF USHRNAMLIST., 24 (F IXBUF ) : 1920 
04 AE D4 O016F CLRL = EXTINDEX + 1921 
10 AE D4 00172 CLRL SHR IMGINDEX : 
59 D4 0017 CLRL_ DOTADRIND ; 
84 01 Ab 9E 00177 MOVAB 1(R6), (REPROTY C)+ : 1926 
53 000000006 09 DO 00178 MOVL LNKSGL | MINV > 1928 
B4 52 53 C3 00182 SUBL3. R3, R TREPROTVEC) + ; 
84 58 BO 00186 MOVW FIXSIZE, (REPROTVEC)+ : 1929 
84 0d BO 00189 MOVW 8 o#13 (REPROTVEC) + : 1930 
Oc ac D3 018C TSTL ADRCLU > 1936 
66 13 0018F BEQL : 
00 BE D4 00191 CLRL_ @DOTADRVEC : 1938 
50 6E 04 C1 00194 ADDL3 #4, DOTADRVEC, RO : 1939 
60 D4 00198 CLRL —_ (RO) F 
59 02 09 OO19A MOVL. #2, DOTADRINDEX + 1940 
55 0c AC gi C3 00190 SUBL3. #1. ADRCLUNUM, RS > 1941 
1 D4 001A2 CLRL. CLUSTERINDEX > 1943 
4C 11 OO1A4 BRB 19$ : 
000000006 00 10 BC41 DO 001A6 12$: MOVL @ADRCLULSTECLUST RINDEX], LNKSGL_CURCLU F 
58 000000006 09 00 OIAF MOVL LNKSGL _¢ LU t 1944 
00 BE 4 AS CO 001B6 ADDL2 SRO TAORUEC : 
56 C a8 9SE 001BB MOVAB 60(R8). ADRBLOCK > 1945 
+t 4 6 p ae 138: MOV CADRBLOCK) ADRBLOCK > 1946 
40 As 6 D1 0014 CMPL § ADRBLOCK, 64(R8) > 1948 
6 13 001C8 BEQL 14$ : 


14 
LNK_IMGOUT 18ase =1984 00:00:24 AX-11 Bliss-32 V4.0-74 Page 54 LN 
LOa=008 127808-1 3c 99:08:45 LINKER. SRCJLNKIMGOUT.B32;1 aD vO 
50 7F af 9A OOICA MOVZBL #127. RO : 1949 
9 i 1¢ BRB 15 : 
50 0000007F ef 38 AB C3.001D0 14$:  SUBL3 56(R8), #127, RO + 1950 
2 01 06 109 15$: MOVL Hl, I + 1952 
00 BE49 6642 : 3 10g 16$ SUBL3 3, (ADRBLOCK)CIJ, @DOTADRVECCDOTADRINDEX] : 1954 
9 D6 OO1E INCL DOTADRINDEX + 1955 
D6 OO1E7 INCL I + 1952 
50 52 01 001E9 178:  CMPL JI, RO ; 
FO 1B OO1EC BLEGU 168 : 
F 11 OO1E BRB 13$ : 
1 D6 1FO 18$: INCL  CLUSTERINDEX + 1941 
55 1 D1 001F2 19$:  CMPL CLUSTERINDEX, RS : 
AF 1B OOF BLEGU 12$ : 
000000006 00 000000006 00 3 O1F 08: MOVAB LNKSGL_CLULST, LNKS$GL_CURCLU + 1965 
50 000000006 00 00 00202 21$: MOVL  LNKSGL™CURCLU, RO : 1966 
000000006 00 99 9 06 98 nov. £89). CNKS$GL_CURCLU : 
50 000000006 00 0d 00 lg MOVL LNKSGL CURCLU, RO + 1967 
2D 58 AO 02 €0 0021 BBS #2, 88(RO), 23 : 
52 18 AO SE 0021 MOVAB 24(RO), CURISD + 1969 
52 62 09 00222 22$:  MOVL (CURISD), CURISD : 1970 
DB 13 00 BEQL i$ : 
F7 14 A2 £9 00227 BLBC O(CURISD), 22$ + 1971 
53 18 A2 SE 00228 MOVAB 24(R2), CURHDRISD + 1973 
50 04 A3 15 00 EF 0022F EXTZV #0, #21, 4(CURHDRISD), RO > 1974 
50 50 09 8 00235 ASHL #9. RO, ; 
84 50 000000006 00 ¢3 00239 SUBL3. LNKSGL_MINVA, RO, (REPROTVEC)+ + 1975 
84 02 A3 BO 00241 OVW (CURHBRISD)., (REPROTVEC)+ : 1976 
84 16 A2 9B 00245 MOVZBW g(CURISD), (REPROTVEC) + : 1977 
D? 11 00249 RB $ : 1971 
28 AO 05 00248 238: TSTL  40(RO) : 1981 
B2 13 O04E a «6.218 ; 
14 AE OF 00 39 PUSHAB TRAVINFO : 1982 
FD8B «OCCFCOCOS 039 PUSHAB STORE SPCGF IX ; 
28 AO 9F 00257 PUSHAB 40(RO) : 
000000006 00 93 FB 00 3A CALLS a, LIBSTRAVERSE_TREE teas 
50 08 AE 10 C1 00 63 24$:  ADDL3 #16, SHRNAMLIST, RO : 1990 
60 40 8F 90 00268 MOVE #64. (RO) ; 
08 AE 00000040 8F CO 0026C ADDL2 #64, SHRNAMLIST : 1991 
04 AC DS 00274 TSTL § SHRCLUNUM : 1992 
03 12 00277 BNEQ q33 : 
00cdD 31 0 79 BRW é$ ; 
OC AE 04 ac 1 3 0027C 25$:  SUBL3 #1, SHRCLUNUM, 12(SP) + 1993 
B pA 0282 CLRL CLUSTERINDEX : 1995 
0089 31 6 84 BRW $ F 
000000006 00 08 BC4 09 87 26$:  MOVL  a@CLUSTERLISTCCLUSTERINDEX], LNKSGL_CURCLU ; 
58 000000006 00 D 6 30 MOVL ENKSGL_CURCLU, RB : 1996 
50 C AB 9A 0029 MOVZBL 92(R8)> RO : 
50 06 00298 INCL. R : 
7E 08 A 1 1 00290 ADDL #24, SHRNAMLIST, -(SP) : 1999 
28 00 5c OA 30 C Ae movcS RO, 92(R8), #0, #40, a(SP)+ : 
08 AE 00000040 8F CO 002A9 ADDL2 #64, SHRNAMLIST > 2001 
10 AE D B1 INCL SHRIMGINDEX : 90¢ 
2c «AS OD B4 TSTL  44(RB) > 200 


rivet 


Routine Size: 


845 bytes, 


50 


40 AB 


50 0000007F ef 


00 BE49 6641 
50 


oc AE 


50 


000000006 


Routine Base: 


16- 

14- 

3 13 00287 

0 04 B9 

4 A 4 BB 
C AB D BF 

4 AE D C4 

04 AE D C7 
10 AE OD C 
4 AE OD D 
0 As D D 
15 13 002d 

04 AE 00 00209 
10 AA 00 0020 
04 AE 4, O2E 
SA DO O02E 

1C AA DO 002E8 

E9 11 QOZEC 

34 AB rE 8 EE 
4B 13 002F1 

34 AB DO 002F3 

04 C1 002F9 

10 AE 00 8 FD 

02 CcO 00 be 
| pe 0030 

6 DO 00309 

0 13 0030C 

56 D1 BO 305 

06 13 0031 

7F = BFA SOR 

09 11 00318 

38 AB C3 OO31A 

01 00 00323 

OF 11 00326 

00 C3 00328 

59 06 EH 

51 06 00335 

51 01 803 7? 

EC 1B 0033A 

cB 11 bos C 

5B 06 0033E 

8 D1 00340 

Q$ JA 85 44 

"oH Si 
ge? 


SCODES + OEA6 


7T= 
on 
= 


27$: 


28$: 


298: 


31$: 


71984 12:40:80 


———_-_-—— 


AX-11 Bliss-32 V4.0-7 Page 55 
LINKER. SRCJLNKIMGOUT. 8 2:1 (11) 
28$ ‘ 
LAST_SYMBOL + 2004 
EXTINDEX, R1 + 2007 
44(R8) CEXTADRVEC) ER ; 
EXT INDEX + 2008 
EXT INDEX + 2009 
STR IMCINOEN. (EXTADRVEC)CR1] : 
EXTINDE ; 2010 
4B (RB), SYMBOLBLOCK + 2011 
28$ 3; 2012 
EXTINDEX, R1 + 2014 
FSCSYMBOLBLOCK), (EXTADRVEC)CR1] : 
EXTINDE + 2015 
SYMBOLBLOCK, LAST_SYMBOL ; 016 
B(SYMBOLBLOCK), SYMBOLBLOCK ; 017 
2(R8) : $028 
52(R8), @DOTADRVECLDOTADRINDEX] + 2025 
#4, DOTADRVEC, R + 2026 
SHRIMGINDEX. (RO) CDOTADRINDEX: ; 
#2, DOTAD DRIND + 2027 
60(R8) ABCD : 2028 
CADRELOCK) SDRBLOCK + 2029 
ADRBLOCK, 64(R8) + 2031 
#127. RO : 2032 
56(R8), #127, RO + 2033 
4 I : 2038 
NKSGL_MINVA, (ADRBLOCK)C1IJ, @DOTADRVEC- =: 2040 
DOTADRINDEXI : 
DOTADRINDEX > 2041 
I : 2038 
} RO PF 
b$ : 
29$ + 2029 
CLUSTERINDEX : 1993 
LUSTERINDEX, 12(SP) : 
26$ 3 
#1, RO + 2047 
; 2048 
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LNK_IMGOUT 1h-se 1984 00:24 AX-11 Bliss-32 V4.0-7 Page 56 
V04= 12-88-1382 90:08:86 LINKER.SRC LNNKIMGOUT. 3 2:1 . 136 
63 049 routine readsection : novalue = . 
ee eich 
08 O8¢ ! THIS ROUTINE COPIES GLOBAL SECTION FROM A SHAREABLE 
2° 05 } IMAGE TO THE ett; BEING PRODUCED. IF THIS IS THE FIRST ENTRY FOR 
68 054 ' A PARTICULAR CLUSTER THEN THE IMAGE FILE OPEN ON A PREVIUOS 
569 055 : CLUSTER IS CLOSED AND THIS ONE IS OPENED. THE SECTION IS READ 
570 828 : INTO A BUFFER WHICH IS DESCRIBED BY THE DESCRIPTOR IN THE 
2) 05 ! IMAGE SECTION DESCRIPTOR. 
Le 058 !== 
57 059 own 
574 060 shrimgi fi ' IFI OF THE SHAREABLE IMAGE FILE 
273 B23 prevauxfn ref blockC,bytel; ' AUXILIARY FILE NAME BLOCK OF PREVIOUS FILE 
577 We local 
578 064 fablock : block(fab$c_bln,bytel, ' FAB FOR OPENING AND CLOSING 
579 065 errorcode, ' RMS ERROR CODE 
580 066 stvcode, 
581 067 bytecount; 
abe 068 ! 
58 069 bind 
584 70 shrimgfdb = Lnk$gl curclybclusl. fattd 1: to, —_ byte], 
585 1 shrimgaux fnb = shrimgfdbl fdb$t_auxfnb 
ane curhdrisd = Lnk$gl_ curisdLisl$t_hdrisd] : gre gt 


if .shrimgifi neq 0 ! IF A FILE IS POEN 
and not .(nk$gl_curclulclu$v_open] ! AND NOT THIS FILE 
then begin 


a8 
: 
; $fab_ inte Cfabetabiock): } Ad os THE 
4 
4 
a 
4 


FAB 
fablock(fab$w_ifi] = -shr ing’ fi; i AND THE od ey FILE IDENT 
if not (errorcode = $close(fab=fablock)) ATTEMPT THE CLOSE 
then begin ' AND ON FAILURE 

signal (Lin$_closein,1, she ing fdbt Tabet i tenane.. 


.errorcode,.fabloc ab$l_stvJ); 


YEVsseusesee 
SELELESS IESE 

3000 09 09 69 09 09 69 09 09 098 SINI NSIS 
wr SSS SOREN S Sano 


Bo Be Be Oe Oe Be Be Se Se Se Oe BH Se Se Ge BOs Se BH Ss Oe FH Ss BE Ss Oe Oe Se FF Ss Ge OF Oe Se Ge OHS SF O56 Oe Oe SESH ae Se SESE SE Ss Se Se Se Se Se Seese 
ee ee ee el ee ee ee ee el ee cel el el el el el eel cel el cel cel el rel cl cel cel cee el el cel cel el cel cel cel eee cel cel cl cl cals el el cl cael cel cl cl cecal cals cls cals calls cells alld cells ly 
powell wee fel ololelolololololololololo) 


pbb beer HHH Hrer rr rrr Yr errr Yr errr PHY Hr YY Hr YP rr Heyer eH YY, 


shringe lute Lusv_ open] = false; ' FLAG FILE NOT OPEN 
£00 rears 0; ' RESET THE IFI 
601 if not nde aks L_curclulc Lu$v opy] ' IF THIS CLUSTER IS NOT TO BE COPIED 
oe - (shrimgrabCrab$l_bkt] = “cur drisdLisd$l_vbn]) eql 0 i IF THIS CLUSTER NOT TO BE COPIED 
en begin 
604 0 Lanes curisdCisl$l_bufadr] = 0; CLEAR THE BUFFER ADDRESS 
605 091 curhdrisdlisd$l_vbn] = 0; AND THE VBN 
606 09 return; ' AND THAT" § ALL 
60 09 end: 
608 09% 5 if not me inkSglt_ curclulclu$v_open] ' IF THE FILE IS NOT OPEN 
609 095 then begin 
610 P 2096 $fab_init(fab=fablock, ! INITIALIZE THE FAB 
611 P 2097 fac=(bio,get), 
oi¢ P 2098 Fopenes 
61 099 =shrimga xfnb); 
614 100 shrimgraber rab$l fa) = fablock; ' SET FAB ADDRESS IN RAB 
615 101 shrimgrab rabSw_ isi] = 0; ' RESET STREAM IDENTIFIER 
$16 19 if not begin 
61 + not (errorcode = $open(fab=fablock)) ! ATTEMPT TO OPEN 
618 1 then begin ' THE IMAGE FILE AND 
619 105 stvcode = .fablock(fab$l_stv]; ! ON FAILURE SET STV 


-PSECT SOWNS,NOEXE,2 
00078 SHRIMGIFI: 


0007C PREVAUXFNB: 
-BLK 


4 
-EXTRN SYSSCLOSE, SYSSOPEN 
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LNK_IMGOUT 18-Sep-19 4 00:00:24 AX-11 Bliss-32 V4.0-74 Page 57 
-Sep- 740: . -B32; 
10e7008 14°$ 1984 99 98 LINKER SRCILNKIMGOUT B52;1 . (12) 
>; 1620 1 $ 2 false ! AND SKIP 
; 1621 1 end 
; 16 ¢ 108 4 else true 
; 16 109 4 end 
: 1624 110 4 or not begin 
; 1625 111 : if not (errorcode = $connect(rab=shrimgrab) ) ! ATTEMPT TO CONNECT RAB 
> 1626 \1§ then begin ' AND ON FAILURE 
> 1627 11 stvcode = .shrimgrabCrab$l_stvJ; ! SET STV CO 
; 1628 114 false ! AND SKIP 
; 1629 115 end 
; 16350 139 & else true 
3; 1631 117 4 en 
; 16 ¢ 118 4 then begin : 
: 16 119 4 signal ((Lin$_openin and not sts$m_severity) or sts$k_warning,1,shrimgfdbL fdb$q_filename], 
: 1O38 120 4 -errorcode,.stvcode); 
; 1635 121 4 nee curclulclu$v_open] = false; ! RESET OPEN FLAG 
: 1996 1 ; 4 curhdrisdlisd$l_vbnJ = 0; ! AND THE VBN 
>; 1637 1 & return; 
; 1638 124 end; 
3 1639 125 shrimgifi = .fablock( fab$w_ifil; ! SAVE THE IFI 
> 1640 2126 shrimgclu = .lnk$gl_curclu; ! SAVE CLUSTER DESCRIPTOR 
3 1641 gist shrimgclulclu$v_open] = true; ! FLAG IMAGE FILE OPEN 
: 1646 128 prevauxfnb = shrimgauxfnb; ! THIS WILL BE PREVIOUS NEXT TIME 
: 1604 $180 she 
3; 1645 2131 shrimgrabCrab$l_ubf] = .lnk$gl_curisdlisl$l_bufadr]; ! SET BUFFER ADDRESS 
: 1646 $138 erypceunt = .curhdrisdlisd$w_pagcnt] * 512; ' AND BYTE COUNT 
3 1647 $1 while .bytecount gtr 0 ' BEGIN LOOP 
3: 1648 134 do begin 
> 1649 $1 5 For Sage gratin usz] = minu(.bytecount,tfrlength); ' SET BYTE COUNT 
: 1650 1 4 if not (errorcode = $read(rab=shrimgrab) ) ! ATTEMPT NEXT READ 
3 1651 2137 4 then begin 
3 1036 2138 4 signal (lLin$_readerr,1 
> 165 2139 4 shrimgfdbl fdb$q_filename] 
3 1654 2140 4 -errorcode .shrimgrabCrab$l_stvJ); 
> 1655 2141 4 Lnk$ql curisdCisl$(_bufadr] = 0; ! RESET BUFFER ADDRESS 
: 1656 316g 4 curhdrisdlisd$l_vbn] = 0; ! AND VBN 
3; 1657 143 4 return; 
: 1658 siée end; 
: 1659 145 bytecount = .bytecount - tfrlength; ' REDUCE THE BYTECOUNT 
; 1660 4 shrimgrabCrab$l_ubf] = .shrimgrabCrab$l_ubf] + ! ADJUST BUFFER 
> 1661 14 -shrimgrabCrab$w_usz); ! FOR AMOUNT OF READ 
; 1986 148 shrimgrabCrab$l_bkt] = 0; 
: 166 149 d; | 
: 1664 150 return; 
> 1665 151 1 end; ! OF READSECTION ROUTINE 


LNK_JMGOUT 
vo4=008 
59 
56 00000000' 
SA 58 
0050 8F 00 
16 
1F 
02 
000000006 
7E 
000000006 
58 
03 58 
c8 
03 58 
0050 =«8F 00 
04 
16 
1F 
28 
cc 


000000006 99 


52 


5003 


oc 


000000006 


92 


oc 


k Se 
1eSep-1 


ATI 3 


SSIS SSLAMGSASS PRM So Un SOVMOo“O> VMDIVPO 


SOoOSCSSOSSOSlSOOSSOSSSSOSSOSOOSOSOSOSOOSOSOOOSOOSSoOSoO 
Be SSS SS SSeSeecccSessscsesssse 


—OMo"OWoocoooW WM -GWMOoI@OI"OVOOVIOMO"OWMOOW rm—-VS-°oVvo 
—ODdOwd SMOooeooo ©——WSO-OCOFfF FrOoODOCO-VTIOIMOWVICCSSO Powe -—m 


18: 
2$: 


3$: 
4$: 


5$: 


1984 19:40:80 


-EXTRN 

~PSECT 

OFFC 00000 READSECTION: 
oW RD 


AX-11 Bliss-32 V4.0 
LINKER.SRC LINK IMGOUT . yf 2;1 


SYSSREAD 
SCODES,NOWRT,2 

Save R2,R3,R4, RS. R6. R7,R8,R9,R10,R11 
LNKSGL_CURCLU 

SHRIMGIF 1 wi 

=80(SP) 

NK SOL yew RO 

’ 8, 
SaRiMG 


& 
#5, 88(RO), 2$ 
#0, (SP), #0, #80, SRMS_PTR 


i. ae SRMS_PTR 


(RB) 
LNCSGL NGURISD, R6 


SRMS_PTRF22 
$RMS~PTR+31 
a FABLOCK+2 


40 SYSSCLOSE 


DE 
HO, (R8), -(SP) 
ins CLOSEIN 
NAL 
Sin ecu RO 


1), 4§ 
12(R6), SHRIMGRAB+56 

#5, 88(R1), 5$ 

0. (SP), #0, #80, SRMS_PTR 


' 0483, $RMS_PTR 
Ayes oaks, PTR+4 


pies 240 
“SHRIMGRAB+60 
SHRIMGRAB+2 


SYSSOPEN 
4 ERRORCOD 
ERROR ODE, 6 
FABLOCK® 3, STVCODE 


Page 58 


(12) 


et 


; Routine Size: 400 bytes, Routine Base: S$CODES + 11F3 
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LNK_JMGOUT 18-56 -1984 00:00:24 AX-11 Bliss-32 V4.0-74 Page 59) 
1a2008 1 ~8ep-19 4 90:08:86 LINKER. SRCJLNKIMGOUT.B32;1 . 3) 
90 AA 9F 00002 6$ PUSHAB SHRIMGRAB : 2111 : 
000000006 99 gi F oe CALLS #1, SYSS$CONNECT : é ; 
g D oc MOVL RO, ERRORCODE : : 
e4 57 OF BLBS § ERRORCODE, gs : ; 
2 9C AA DO 000E MOVL § SHRIMGRAB+12, STVCODE + 2113 ; 
2g DD O00E6 7$ PUSHL  STVCODE + 2120 ; 
DD OO0E PUSHL ERRORCODE : F 
7E 68 14 (C1 QOOEA ADDL #20, (R8), =(SP) + 2119 ; 
01 DD OEE PUSHL # : F 
00000000* 8F DD OOF PUSHL #<LIN$_OPENING-8> : F 
ee 88 bO GOOD ROVE’ LAKSGLCORCLUS RO ; 2121 
58 AO 29 BR 0100 BICB2 #32, BB CRO) : : 
11 0104 BRB + 2122 ; 
6A 02 AE 3C 91 8$ MOVZWL FABLOCK+2, SHRIMGIFI + 2125 ; 
D8 AA 68 DO O010A MOVL  LNKSGL_CURCLU, SHRIMGCLU + 2126 : 
50 D8 AA DO 00106 MOVL SHRIMGCLU R + 2127 ; 
58 AO 20 88 011 BISB2 #32, 88(RO) : : 
04 AA 9 DO 00116 MOVL 9, PREVAUXFNB ; 3128 : 
50 00000000" EF 00 OO11A $ VL NKS$GL_CURISD, RO > 2131 ; 
BG OA 08 0 pO 0121 OVL (RO), “SHRIMGRAB+36 : : 
5 02 Ab 3C 00126 MOVZWL 2(R6). BYTECOUNT + 2132 ; 
52 5 09 78 0012A SHL #9, BYTECOUNT, BYTECOUNT : : 
52 DS OO12E 108 TSTL  BYTECOUNT : 2133 : 
5D 615 00130 BLEG 15$ : ; 
50 32 D0 00132 MOVL § BYTECOUNT, RO t 2135 : 
00001400 aF 50 D1 0013 CMPL RO, #5120 : ; 
05 1B 0013¢ BLEQU : : 
50 1400 8F 3¢ 00136 MOVZ2WL #5120, RO : ; 
BO AA 50 BO 00143 118:  MOVW RO, SHRIMGRAB+32 : : 
90 AA 9F 00147 PUSHAB SHRIMGRAB : 2136 : 
000000006 00 01 FB OO14A CALLS #1, SYSSREAD : : 
57 50 pO 00151 VL —sRO,.:_ERRO F F 
26 57 €8 00154 LBS | ERRORCODE, 14$ : ; 
9¢ AA DD 00157 PUSHL  SHRIMGRAB > 2140 ; 
57 DD 0015A PUSHL ERRORCODE : ; 
7E 68 14 ¢1 0015¢ ADDL3 #20, (RB), -(SP) : 2139 ; 
01 DD 00160 PUSHL #1 : ; 
000000006 8F DD 00168 PUSHL #LIN$_READERR : ; 
000000006 00 05 FB 001 CALLS #5, LIBSSIGNAL : : 
50 00000000' EF D 0016 12$: MOVL LNKSGL_CURISD, RO > 2141 : 
08 AO D4 00176 CLRL (RO) : ; 
0C Ad D4 00179 138: CLRL  12(R6) + 2142 : 
94 o17¢ RET : 3132 ; 
52 ECOO C2 9E 00170 14$:  MOVAB -5120(R2), BYTECOUNT + 2145 : 
50 BO AA 3¢ 00182 MOVZWL SHRIMGRAB+32, RO + 2147 ; 
B4 AA 50 CO 001 ADDL2 RO, SHRIMGRAB+36 : : 
C8 «AA OG O18, CLRL  SHRIMGRAB+56 > 2148 3 
9F 11 0018D BRB > 2133 : 
04 OO18F 158: RET 3 2151 : 
| 


Boe 
ep-1 
1a- i] 


s 


54 00000000" EF 43 00002 
A 9 


52 04 ? 44 
64 08 AC 00 0000 
FO AG OC AC 00 0001 
52 D5 00017 1$: 
g 15 00019 
50 3 DO 00018 
00001400 = 8F a8 } 0038 
50 1400 BF 3¢ 00 
EA A4 0 BO O02C 2$: 
000000006 - Ot re 00 
gH RR 
28 53 €8 000 
000000006 8F dD Bete 
D4 = A& DD 00 28 
53 DD 0004 
7E 000000006 00 ‘ s. 038 
000000006 dD 5 
000000006 00 6 FB 00058 


1986 92:40:80 


-EXTRN 


001C 00000 Mae reaee 
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SYSSWRITE 


Save R2,R 

LNKSAL iRehhe+S6, 

#9, PAGES, BYTE COUNT 

VBN, LNKSAL_IMGRAB+56 
BUFFER. LNKSAL_IMGRAB+40 


at br RO 
#512 


1 
RO, DAKSAL jrenness 


RCODE, 
ALINS NOIMGF IL 
LNKSAL IMGRAB+12 


ERR 
: 0, at oe IMGFIL, (SP) 


. INS _WRITEERR 
» LTBSSIGNAL 


Sete Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Be Se Be te 


Pose 48) 


; 1667 1 ¢ 1 routine writesection(pages,vbn,buffer) = 

: 1668 1 begin 

: 196? 154 local 

; 1670 155 bytecount, ! NUMBER OF BYTES OF IMAGE FILE 
: 197) 128 errorcode; ! WRITE ERROR CODE RETURNED 

3 1678 135 bind auxfnb = Lnk$gl_ ees auxfnb] : blockCnam$c_bln,byteJ; ! AUXILIARY FILENAME BLOCK 

; 1675 160 | eee = .pages * 512; 

>; 1676 161 Lnk$al _imgrab rab$l_bkt = .vbn: 

3 1677 168 ink$al_imgrabCrab$l-rbf] = buffer; 

>; 1678 16 while Tbytecount gtr ! LOOP TILL ALL DONE 

3; 1679 164 do begin 

>; 1680 165 ink$al_imgrabCrab$w_rsz] = min(. et ot gg ant etirrength) L pod BYTE COUNT FOR THIS WRITE 
: 1681 $196 4 if not’ (errorcode = $write(rab=(nk$al_imgrab) ! AND DO IT 

3 1086 sie “ then begin BUT IF AN 

; 168 168 4 atgnak ti ins, meseeete 1, Nedot tng togrtth ree b$q_filename), AND REPORT THE ERROR 

3 1684 2169 4 rorcode,. inure Crab$l_stvJ,li ns. mnoimgtil); 

3; 1685 $170 4 Lnk$gl_ ct imskCink$y aoa = false; MESSAGE 

> 1686 171 4 fous “false; i THEN GIVE UP 

: 1687 $iz6 3 

3; 1688 2175 3 beteceu ~* yeas tees - tfrle ength; ' REDUCE THE BYTE COUNT 

>; 1689 174 (3 ink$al “ingrab rab$l_rbf] = .lnkSal. imgrabCrab$l_rbf) + ! UPDATE BUFFER POINTER 

: 1690 175 3 . Lak$al_imgrablrab$w_rsz]; ! TO THE NEXT PIECE 

>; 1691 176 3 ink$al_imgrabCrab$l_bkt] = 0; ! FORCE RMS TO USE NEXT BLOCK POINTE 
: 1oRe 2177 2 end; ! AND GO AGAIN 

3; 169 5178 2 return true; 

> 1694 179 1 end; 


p=198¢ 12:40:80 EL TWKER: SRE SLAKIMGOUT.B92; 1 


16- 
14- 
000000006 00 1 8A 0006 BICB2 #1, LNKSGL_CTLMSK 
5 11 0006 BRB 
5 ECOO C2 «(Of 3$: MOVAB 120(Re) BY COUNT 
5 EA A MOVZWL LAKSA MGRAB 
0 Ad C 7% ADDL tN De acRA a. 
F 
4 bs 18 CURL WKsaL IMGRABS 56 
50 ; 0p re 4$: MOVL #1, RO 
F : RET 
OB 


a: 


; Routine Size: 131 bytes, Routine Base: S$CODE$ + 1383 


$: CLRL RO 
R 


15 
bt" IERESHSHE C0835. WNadDeD RSC RZ ta 
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: 1696 180 1 = routine Lnk$wrtimghdr : novalue = 

HB Bp g bet 

; 1699 188 ' THIS ROUTINE IS CALLED TO WRITE THE IMAGE HEADER. IT FIRST WRITES 

: 1700 184 ! THE HEADER FIXED RECORD INTO THE FIRST HEADER BUFFER BLOCK THEN 

; 1701 137 ! OUTPUTS TO THE (OPEN) IMAGE FILE ALL BLOCKS OF THE IMAGE HEADER 
; TRE 1 § ! FINALLY THE IMAGE FILE IS CLOSED. 

: 170 18 ! 

3: 1704 188 global 

3 1703 19% Lnk$gl_otsepdsc : ref block C,byte] ; ! POINTER TO DESCRIPTOR OF OTS ENTRY POINT 

: 1707 3131 local 

; 1708 136 curtfr, ! ADDRESS IN HEADER FOR NEXT TRANSFER ADDRES 
; 1709 $13 otsepnam : ref block C,bytel, ! POINTER TO OTS EPT NAME BLOCK 

; 1710 194 sysver : ref block C,bytel, ! POINTER TO VALUE PART OF SYS$K_VERSION 

3: 1711 2195 sysvernen : ref block C,bytel, ' POINTER TO NAME PART OF SYSS$K_JVERSION 

; ar $130 ihdactiv : ref block C,byte] ; ! IMAGE ACTIVATION AREA OF HEADER 

3; 1714 2198 bind 

: 1715 2199 ng wt = cstring (*LIBSINITIALIZE*), ! OTS ENTRY POINT NAME 

: 1716 2200 2 otsinishr = Gatring ("LIBSIMAGE_INISHR'), ! OTS ENTRY POINT FOR SHARED IMAGES 

3: 1717 2201 imgidarea = ihdactiv : ref block C,bytel, ' USE SAME CELL TO POINT TO ID AREA 

: 1718 $50¢ symdbgdata = ihdactiv : ref block C,bytel, ! AND FOR SYMBOL TABLE AND DEBUG DATA 

3 1719 220 imageheader = header_desc (0) _: ref_block C,byteJ, ! POINT TO THE BUFFER 

: 1te9 $$0e 2 imageprivs = imageheader Cihd$q_privreqs] : vector ([2,long) ; ! POINT TO PRIVILEGES 

3: 1722 2206 if (.lnk$gl_ctlmsk Clnk$v_sys] ! IF A SYSTEM IMAGE 

s 1725 2207 and not 

5 Viet $$o8 ; -lnk$gl_ctlmsk Clnk$v_sysheadr] ! WITHOUT A HEADER 

3: 1726 2210 or .lnk$gwihdrblks eql 0 ! OR THERE IS NO HEADER 

3 1727 2211 then begin 

; 1728 $$i§ ink$closimgfil () ; ' CLOSE THE IMAGE FILE 

; W768 22135 3 return ; ! AND THAT'S ALL 

: 1734 LS Selb 

: 1732 2216 2 imageheader Cihd$b_hdrblkcnt]) = ofnttpe persis ; ' INSERT NUMBER OF BLOCKS OF HEADER IN HEADE 
; 1733 2217 2 imageheader Cihd$w_size] = ihd$Sk_maxlength ; ' SIZE OF HEADE 

3 1734 2218 2 imageheader Cihd$Sw_activoff]_ = ihd$k_activoff ; ! OFFSET TO ACTIVATION CONTROL 

3; 1735 2219 2 imageheader CihdSw_symdbgoff] = ihd$k_symdbgoff ; ' SYMBOL AND DEBUG DATA 

: 1736 2220 imageheader Cihd$w_imgidof = ihd$k_imgido ! THE IDENTIFICATION AREA 

: 1737 2221 imageheader Cihd$b_imgtype = ihdSk_exe ; ! ASSUME EXECUTABLE IMAGE 

3; 1738 $555 imageheader Cihd$w_iochancnt] = .lnk$gw_chans ; ' SET NUMBER OF CHANNELS 

3; 1739 § imageheader Lihd$w_ ag ioent = .lnk$gqw_ioseg ; ! AND SIZE OF I/O SEGMENT 

: 1740 4 imageheader Cihd$v_lnkdebug) = .lnk$glictlmsk Clnk$v_dbg] ; ' AND THE STATE OF DEBUG FLAG 

3 1741 25 imageheader Cihd$v_picimg = .lnk$gl_ctlmsk Eink$v_picimg] ; ! EXTRACT POSITION DEPENDENCE FLA | 
3 Hg $58 imageheader Lihd$v_nopObufs] = .lnk$gl_ctlask ink$v=nopObufs) : ! AND STATE OF RMS PO BUFFER INDICATOR 

3 174 7 imageheader Lihd$Sv_matchctl] = .lnk$gb_matchctl ; ' MATCH CONTROL FLAGS 

3 1744 8 imageheader indy dagen = true ; ' DMT FIELDS ARE PRESENT 

: 174? 3 imageheader Cihd$l_ident = .lnk$gl_matchid ; ! AND THE ASSOCIATED IDENT 

3 1747 231 imageprivs fo) = .lnk$gq_privs £0} ; ! SET PRIVS INTO HEADER 

: 1748 § imageprivs Li] = .lnk$gq_privs (1) ; Fe enced 

: 1786 4 
+ 1751 5 imageheader Cihd$l_sysver] = (if Lnk$search iink$ot_s Sver syover syavernes? ! LOOK UP SYSS$K_VERSION 
3: 1752 2236 then .sysver Csym$l_value] ! AND STORE THE VALUE 


1f3eo-1984 09:00:94 
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! WE REALLY SHOULD ALWAYS FIND IT: 
! IF THERE IS A FIXUP SECTION 


) 
imageheader Cihd$l_iafva] = Gi of it. fixisd neq 0 


en pease fixhdrisd = 
tinker ise Cisd$v _vpnl*9 


imsk Clnk$v -p0 image] ; 
ihd$Sw_activoff] ; 


AACN 
WN -"ODONOULW 


imageheader ree _p0ima 
— 


CistSt, pected? i block C,byte] ; 
SET VA OF FIXUP SECTION 


! ELSE USE 0 
: SET PO-ONLY fart Ss 


! POINT TO ACTIVA 


ar 


> inanttis Ciha$l_ “tfradri] : 
Hs be dbgtfps neq 0 


SUS 


<dbgt tfr; 
ha$l_tfradr2] ; 


TION AREA 
! START AT FIRST TRANSFER ADDRESS 


. IF A 

! DEBUGGER ge des 

! ADDRESS WAS F 

! THEN IT IS FIRST. AND UPDATE TO NEXT 


! NO DEBUGGER TRANSFER ADDRESS SO 
! CHECK IF DEBUG WAS REQUESTED 
! AND ISSUE ERROR IF SO 


end 
. lnk$gl_ctlmsk ot _dbg] 
ther lin Pe r,1 
stnkS3t_ ngfil Cfdb$q_filename] 


SSNS SSS SS SS SS SSS 


JIVE 
MiSwn—oOo 


ihdactiv wit _inishr] = 


! ASSUME NO SHAREABLE IMAGE INITIALIZATION 
! IF SHAREABLE IMAGE 


! SET TO SHAREABLE 
! IF "LIBSIMAGE_INISHR’’ SPECIFIED 


NN 
VAIN 


SS 


sai ctlmsk Clnk$v ‘el 


eader CihdSb_imgtype] = ihd$k_shr ; 
ae (otsTnishr, Lnk$gl_ otsépdsc. sotsepnam) 


thea yege 
hdactiv Ciha$t_inishr] = 
imageheader Cihd$v_ inishr] = true 
en 


ono 


« ink$gl_ otsepdsc Csym$l_value] 


NNN NSS NSN 
So Uo owe 


if not .lnk$gl_ctlmsk Clnk$v_sys} 
then if Lnk$search "Yoesentryfya.Lnksal otsepdsc ,otsepnam) 


L otsepdas Csym$l evalua) ; 


iha$l— “ttradrad ; 


imageheader Cihd$v_lnknotfr] = 
Hot bee tfrpsc neq 0 


Tnageheader Ci 
if not (. -Lnk$gl cElmsk 


if ! SETUP INIT ENTRY POINT 
: MARK IT VALID 


FOR A go Pol IMAGE 


P H 
USER TRANSFER ADDRESS TO BE THE SECOND 
OR THIRD DEPENDING ON PRESENCE OF DEBUGGER 
BEFORE THE OTS 


ASSUME NO TRANSFER ADDRESS 
FINALLY IF pi cauege HAD A 


A TRANSFER A s 
CLEAR - TRANSFER seerese FLAG 


! IF NOT A SYSTEM IMAGE 


tnksgle shtualh Clink$v peas” 
. Lnk$gl Pe 
nk$gl_ imgtil Cfdb$q_filename] 


then .curtfr = 
else signal (ti 


ee ieee ee ee ee ee ee ee ee eee g 


| 
§ 
; 
; 
; 
i. 
: 
5 


SSseo Ronse Sess aee Ss 


WITH NO HEAD 

AND if SO IN NSERT. IT LAST 
REPORT IGNORED TRANSFER ADDRESS 
IN OTHER KINDS OF IMAGE 


z 
x 
on 
3 
— 


ER 
S 


94 
95 
9 
9 
98 
99 
00 
01 
0 
0 
04 


0 09 Op C0 09 00 C0 0d 09 0D 00 09 09 09 09 OS Cn 0 09 09 09 09 C9 09 09 CD OD CO CD CD 
SS rsa snutees 
NOUEWN —O OONAUSWN OVD ONOULS WHO 


ee cel ee ceed ee ee eel ee el cee eel cel cel el cel el el eel el cell cel el eel eel eel cel eel eel el cel cece cell cel als cecal cel ls cecal cll cells eels cecal cecal cael casas cael cals 
So 
RIPQPIPINIPIPONININININIPOPININYIAIPIDINIPIPGNINPIPUPINYINIPNINIPYNIPYIPIPYIPIPPUPNINIPINIPUNINIPYUPIPUNYD 
WWAWAIAWWW PIN tt tt ot = 4 I OHOOOO 
WR OC OONAUE WN (“OVO ONAUE WN “OO OONAUE WN —"OOOnOul 


3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
32 
3 32 
840 32 
B42 33 
848 35 
844 32 
845 $$ 
846 3 
847 3 
848 3 
849 3 
850 3 
851 3 
$2¢ 3 
85 ; 
854 
855 ; 
856 4 
857 34 
858 34 
859 34 


45 5A 49 4C 41 


=PIPIPININIPINIMIPINIIIPIPINYPIPININIPIPINIPINIPIPIPININIPININIPYPINIPIPINPIPUPIPIPIPIPUPININIPUTUW 


LINKER.SRC 


end 
else if .lnk$gl_ctlmsk Clnk$v_exe] ! 


IF IT IS 

then signal (Lin$_usrtfr71 ! IMAGE REP 

Unk SGU ingt il Cfdb$q_filename] i WHEN TRAN 

symdbgdata = .imageheader + .imageheader Cihd$w_symdbgoff] ; ! POINT TO 
if (symdbgdata -lnk$gw_dstblks) neq 0 ! IF A DST 


ihs$w_dstblks] = 
ihs$l-dstvbni 


if (symdbgdata p {hsSv_gstrecs, 
then symdbgdata Lihs$l_gstvbn 


if (symdbgdata p [hast gate tes] 
then symdbgdata Lihs$l_dmtvbnJ 


then symdbgdata -lnk$gwidstvbn ; 


IF A GST 


.lnk$gw_gstrecs) neq 0 
a . ' THEN SET 


-lnk$gw_gstvbn ; 
-lnk$gl_dmtbytes) neq 0 
.d $d r . 


! THE MAJOR AND MINOR IDENTS OF THE HEADER RECORD ARE USED 
! BY IMAGE ACTIVATOR AS FOLLOWS:- 

: MAJOR ID = MATCH REQUIRED ALWAYS 

: MINOR ID =-_MORE RECENT (GREATER THAN 
; OR EQUAL) THAN IMAGE ACTIVATOR'S 
VERSION ARE PERMITTED. 


imageheader Cihd$w_majorid] = ihd$k_majorid ; 
imageheader Lihd$Sw_minorid] = ihd$k_minorid ; 
imgidarea = .imageheader + .imageheader Cihd$w_imgidoff] ; 


Lnk$gt_imgnam (OJ = minu (Lnk$k_max_filename_len the. inksat imgnam (0]) ; 
ink$gt_imgid CO) = minu (sym$c_shortname,.lnk$gt_imgid (OJ) ; 


ch$move (.lnk$gt_imgnam [0J+1, Lnk$gt_imgnam [0], imgidarea bib ise. jngnand) 3 
ch$move (.lnk$gt_imgid COJ+1, Lnk$gt_imgid CO], imgidarea Cihi$t_imgid]) ; 


[tag téoree Cihi$q_lLinktime])<0,32,0> = .lnk$gq_alostim (0) ; 


imgidarea Cihi$q Tinktime] + = .lnk$gq_alostim (1) ; 
Cingidarea Cihi$t_Linkid])<0,8,0> = Llid$Sc_Size+1; _ 

imgidarea Cihi$t_linkid) + 1 = .lnk$aw_version ClLid$Sw_major) ; 
imgidarea Cihi$t_linkid] + 3 = ic'-" ; ; 

imgidarea Cihi$t_linkid] + 4 = .lnk$aw_version Clid$Sw_minor] ; 


FINALLY WRITE OUT THE WHOLE HEADER. 


if writesection (.lnk$gw_hdrblks, 1, .header_desc (0]) ' 
then Lnk$closimgfil () ; : 
return ; 

end ; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


OE Q0048 P.AAG: .BYTE 14 
49 54 49 4E 49 24 42 49 4C 0004C eASCII = \LIBSINITIALIZE\ 
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AN EXECUTABLE 

ORT THE ERROR 

SFER ADDRESS IS MISSING 
STB AND DBG DATA AREA 


WAS WRITTEN 


! SET BLOCK COUNT AND ITS VBN 


WAS WRITTEN 
RECORD COUNT AND VBN IN HEADER 


MAJOR IDENT 
MINOR IDENT 


POINT TO IMAGE ID AREA 


! TRIM NAME LENGTH TO MAX 
! ALLOWED IN HEADER 


! MOVE IN THE IMAGE NAME 
! MOVE IN THE IMAGE I.D 


! TIME OF LINK IS WHEN 


i SEPARETED BY A HYPHE 
i FROM THE MINOR ID 


Y WRITTEN TO VBN 1 


=z 

Zz 

~< 

> 

in 

oO 

oO 

» 

rt 

— 

Oo 

2 

| m 
z ao 
QS 

2 


> 
° 
. 
. 
. 
. 
. 
o 
. 
. 
. 
oO 
- 
o 
. 
e 
. 
@ 
. 
e 
. 
° 
2 
. 
° 
- 
a 
° 
. 
o 
. 
* 
e 
7 
e 
. 
. 
e 
eo 
° 
a 
7 
e 
. 
oe 
o 
e 
. 
oe 
7 
e 
- 
. 
e 
. 
ao 
. 
e 
. 
oe 
7 
e 
. 
o 
. 
* 
. 
e 
a 
7 
e 
© 
. 
. 
o 
. 
o 
7 
o 
. 
o 
. 
. 
7 
e 
. 
e 
. 
° 
. 
a 
a 
e 
. 
. 
os 
. 
. 
. 
. 
. 
. 
. 
. 
. 
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TE 16 
cit \L 


Ang 


1 

1 

1 A 

48 53 49 4E 49 SF 45 47 41 4D 49 24 42 49 eg 00088 
5 006A 


15 
-$ep-1984 
b-Sen-1984 9 
Y 
S IBSIMAGE_INISHR\ : 


-PSECT S$GLOBALS$,NOEXE,2 


00079 .BLKB 3 : 
0007C LNKSGL_OTSEPDSC:: : 
-BLKB 4 : 
OTSENTRYSYM= P.AAG ; 
OTSINISHR= P.AAH ; 
IMAGEHEADER= HEADER_DESC ; 
.PSECT $CODE$,NOWRT,2 ; 
OFFC 00000 .ENTRY LNKSURTIMGHDR, Save R2,R3,R4,R5,R6,R7,R8,- =; 2180 ; 
5B 000000006 00 9€ 00002 MOVAB LNKSGT_IMGNAM, R11 : ; 
5a 00000000' EF 9E 00009 MOVAB IMAGEHEADER, R1 : : 
59 90000000" EF 9€ 00010 MOVAB LNKS$GL_OTSEPDSC, R9 ; : 
58 000000006 060 H 00017 MOVAB LNKSGL~CTLMSK, R8 : ; 
SE OC C2 OOO1E SUBL2 #12, SP : F 
53 6A 14 C1 00021 ADDL #20, IMAGEHEADER, R3 + 2204 ’ 
08 68 03 £1 00025 BBC #3, LNKSGL_CTLMSK, 2$ + 2206 : 
03 03 As 01 £0 00029 BBS #1, LNKSGL-CTLMSK+3, 2$ : 2208 ; 
0257 31 0002E 1$: BRW 22 : ; 
EC A9 BS 00031 2$: TSTW  LNKSGW_HDRBLKS > 2210 : 
FB 13 00034 BEQL «=s«a1$ : ; 
52 6A DO 00036 MOVL §§ IMAGEHEADER, R2 > 2216 F 
10 A2 EC AI 90 00039 MOVB  LNKS$GW_HDRBLKS, 16(R2) : ; 
62 003000A8 BF DO 00036 MOVL #3145896, (R2) : 2217 : 
04 A2 005800464 8F DO 0004 MOVL #5767236, 4(R2) : 319 ; 
11 A2 01 90 00040 MOVE #1, 17(R3) : 2221 ; 
1¢ A2 000000006 00 B80 00051 MOVW  LNKSGW_CHANS, 28(R2) : $23¢ : 
1E  A2 000000006 00 B80 00059 MOVW LNKSGW_10SEG, 0(R2) > 222 : 
50 20 A2 9E 00061 MOVAB 32(R2); > 2226 ; 
51 01 06 EF 90065 EXTZV #6, #1, LNKSGL_CTLMSK, R1 : : 
60 01 00 51 FO 0006A INSV 1. #0. #1, : ; 
51 02 As 01 01 EF 0006F EXTZV #1, #1, LNKSGL_CTLMSK+2, R1 > 2225 
60 01 03 51 FO 00075 INSV R1, #3, #1, (R ; 
51 02 a8 01 05 EF O007A EXTZV #5, #1, LNKSGL_CTLMSK+2, R1 > 2226 
60 1 02 1 FO 90080 INSV R1, #2, #1, CR : 
03 Ad 3 FC OAD OF 5 INSV. LNKSGBMATCHCTL, #0, #3, 3(RO) : 2227 
60 20 88 0008C BISB2 & : g 8 
24 Ag FS A 00 O08F MOVL LNK$GL_MATCHID 36(R2) : 2209 
63 000000006 90 D 00094 MOVO §LNKSGO"PRIVS, (R3) : é 1 
E pp 098 PUSHL SP + 2235 
08 AE 9F 0009D PUSHAB SYSVER ; 
000000006 00 9F O00A0 PUSHAB LNK$GT_SYSVER F 
000000006 00 : FB A6 CALLS #3, LNRSSEARCH ; 
fs E9 OOOAD BLBC o : 
50 04 DO 00080 MOVL  a@SYSVER, RO : 2236 
11 000B4 BRB 4$ ; 
D4 B6 3$: CLRL =—s_ RO + 2235 
28 = A2 0 DO 00088 4$: MOVL RO, 40(R2) : 


F 15 
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0 A 00 000BC¢ MOVL §_ IMAGEHEADER, RO : 2239 
af 000000006 00 D9 OBF MOVL LNKSGL_FIXISD, R1 : 
: 4 C6 BEQL $ : 
51 06 «Al 1 8 ? ites Ano g 1.4 4(R1), R1 : $32) 
51 51 88 5, 0001 ASHL #9. R1,- . : 
02 11 0003 BRB 4$ : 
1 04 00007 5$: CLRL sR + 2239 
2c =A 51 DO 00009 é$: MOVL 1, 44(RO) : 
20 a0 01 04 03 AB FO 000DD INSV LNKSGL_CTLMSK+3, #4, #1, 32(RO) + 224 
56 02 AO 3C QO0E4 MOVZWL (RO), IHDACTIV 3: 224 
26 20 a0) SOEs ADDL2 RO, IHDACTIV : 
5 6 DO O00EB MOVL IHOACTIV, CURTFR : 3248 
000000006 00 D3 OOOEE TSTL LNKSGL_DBGTFPS : 2250 
OD 13 000F4 BEQL $ : 
$2 000000006 00 00 000F6 MOVL §_LNKSGL_DBGTFR, (CURTFR) : 3252 
& 04 Ab 9E O00FD MOVAB 4(R6), ~CURTFR + 225 
1B 11 00101 BRB 8 + 2250 
17 68 06 £1 00103 7S: BBC #6, LNKSGL_CTLMSK, 8$ + 2255 
7E 000000006 00 14 C1 00107 ADDL3 #20, LNKSGC_IMGFIL, -(SP) + 2257 
01 DD 0010F PUSHL #1 : 
000000006 8F OD 00111 PUSHL aL INS DBGTFR : 
000000006 00 03 FB 00117 CALLS #3, LYBSSIGNAL F 
10 Ad D4 OO11E 8S CLRL  16(IHDACTIV) : 2260 
29 68 02 €1 00121 BBC #2, LNKS$GL_CTLMSK, 9$ : 2261 
50 6A 00 00125 MOVL §_IMAGEHEADER, RO + 2263 
11. AO 02 90 00128 MOVB #2, 17(RO) F 
08 AE 9F OO012C PUSHAB OTSEPNAM > 2264 
59 DD O01 ¢F PUSHL ; 
00000000" EF 9F 00131 PUSHAB OTSINISHR ; 
000000006 00 03 FB 00137 CALLS #3, LNKSSEARCH : 
0D 50 €9 0013E BLBC a F 
10 A6 00 89 DO 00141 MOVL § @LNKSGL_OTSEPDSC, 16(IHDACTIV) > 2266 
50 6A D0 00146 MOVL § IMAGEHEADER, RO : 2267 
20 AO 40 8F 88 00149 BISB2 ash, (RO) : 
2B 68 03 £0 0014E 9$ BBS #3, LNKSGL_CTLMSK, 11$ : 3272 
08 AE 9F 0015 PUSHAB OTSEPNAM : 227 
59 DD 0015 PUSHL RQ : 
00000000" EF 9F 01 ? PUSHAB OTSENTRYSYM : 
000000006 00 3 FB 0015D CALLS #3, LNKSSEARCH ; 
16 0 £9 00164 BLBC—E—s«aRO. ; 
62 00 89 DO 00167 MOVL § @LNKSGL_OTSEPDSC, (CURTFR) : 2275 
50 04 Abd SE 0016B MOVAB 4(R6), RO : 2276 
50 52 01 O16f CMPL CURTFR, RO : 
06 12 00172 BNEG 10$ : 
52 08 ag 1 0174 MOVAB 8(R6), CURTFR : 2277 
2 11 00178 BRB 11$ : 
52 0 DO OO17A 108 MOVL RO, CURTFR : 3278 
§ 6A p 17D 11$ MOVL §_IMAGEHEADER, RO > 2281 
20 AO 1 BISB2 #2, 32(R : 
000000006 D5 001 TSTL LNKSGL_TFRPSC > 2283 
13 0018A BEQL 4$ ; 
20 a0 8A 18¢ BICB2 He 32(RO) > 2285 
05 6 E1 001 BBC #3, LNKSGL_CTLMSK, 12$ > 2286 
09 03 as 1 €1 00194 BBC #1. LNKSGL~CTLMSK+3, 13S > 2088 
62 000000006 00 00 00199 128: MOVL LNk GL_TFRADR, (CURTFR) ; 2290 
D 11 OO01A0 BRB 6$ : 
| 
= 
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17 
7E 000000006 


000000006 


08 


000000006 


000000006 


66 


28 A6 000000 


FCF8 


00000000v 


; Routine Size: 656 bytes, Routine Base: 


7E 000000006 


006 
38 
40 
41 
43 
bu 


00 


30 


000000006 


99 000000006 
56 04 
56 

A6 F2 


6 EA 
A6é 000000006 


A6 F4 
A6é 000000006 


A6 AG 
A? 35303230 
56 06 
56 
50 
8F 


50 000000006 
0 000000006 


50 000000006 


00 
A6é 000000006 


A6é 
> 000000006 
A6é 000000006 


EC 


ay\am 


7 
C 
0 
E 


FONN PWS Po Roe 


oO 


SOOPOrUIPAOWO—-O—wao— 


DOOOOCOOOCOOOOOOOCOOOOOOOOOOOOOO 


O19 F OMOMNOOOMMMOVVIFNOOMOMDOUJA NP COP OOPY 
SOWO NOS OMOOCCOCODW O™WOOO"NOD NAT PUowo 


FDODONO FON ON OID FOO FOOD —$ FOOD $ FON OCOWONWONWOONODIO 0 0 — 
wn 


OMM NWS OWIWONING ONS O09 "0009 $9 ONWI 9 OW" DW" DOW NI IVOM—9 oF 
OOQooooooooooooooooooooo 


OOOCOOSOCOOOOSOSOSOSOSSOSSSOSCOSCOOSOCOSOOOOOOoOOoOoOoOO 


co 
nn 


rr 
Wr 


SCODES + 1406 


984 12:40:80 ERTNKERsSReSLNKIMGOUT 682; 1 


#20, LNKSGL_IMGFIL, -(SP) 
#LINS_TFRSYS 
Sate 


#1, LNKSGL_CTLMSK, 16$ 
#26, LNKSGD_IMGFIL, =(SP) 


#LINS_USRTFR 
#3, LIBSSIGNAL 
A R7 


R7, 
be Seu _DSTELKS, 8(SYMDBGDATA) 


LNK$GW_DSTVBN, (SYMDBGDATA) 
LNKSGW_GSTRECS, 10(SYMDBGDATA) 


LNKSGW_GSTVBN, 4(SYMDBGDATA) 
LNKSGL-DMTBYTES, 16(SYMDBGDATA) 


$ 
DMTVBN, 12(SYMDBGDATA) 
#892351024, 12(R7) 

6(R7), IMGIDAREA 

R7, IMGIDAREA 

LNKS$GT_IMGNAM, RO 

a0. #LRKSK_MAX_F ILENAME_LENGTH 
#LNKSK MAX_F ILENAME_LENGTH, RO 


RO, LNRSGT IMGNAM 
LNKSGT_IMGID, RO 
RO, #15 


#15, RO 
RO, LNKSGT_IMGID 
LNKSGT_IMGRAM, RO 


RO, LNKSGT_IMGNAM, (IMGIDAREA) 
LNKSGT_IMGID, RO 


RO, LNK$GT_IMGID, 40(IMGIDAREA) 
LNKS$GQ_ALOSTIM, 56(IMGIDAREA) 
#5, 64TIMGIDAREA) 
LNKSAW_VERSION, 65(IMGIDAREA) 
845 67 (IMGIDAREA) 
LNKSAU_VERSION* , 68¢(IMGIDAREA) 


# 
LNKS$GW_HDRBLKS, -(SP) 
#3, WRITESECTION 


#0; LNKSCLOSIMGF IL 
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74 Page 68 
~3ep-19 40:30 CLINKER.SRCJLNKIMGOUT B32: 1 oe 48 


: 1861 44 1 global tine Lnk$closimgfil : 2 : 
: 1869 4s Begin routine Lnk$closimgfil : novalue 
: 1864 ‘3 ROUTINE TO CLOSE THE IMAGE FILE 
: 1866 49 local errorcode, F 
> 1867 50 magefab : block Cfab$c bln, byte); 3 
> 1868 51 : 
3; 1869 26 bind 5 
5 139 3? auxfnb = Lnk$gl_imgfil Cfdb$t_auxfnb] : block Cnam$c_bln, byte]; ! AUXILIARY FILENAME BLOCK ; 
: 187 55 2 if .LnkSqw_imgifi eql 0 IF MA TUR : 
1878 ; 36 at nk$qu img eq IF NO IMAGE RETURN NOW 
: 1875 P 2358 2 $fab_init (fab = imagefab ! SET UP FAB TO CLOSE FILE : 
: 1876 P 2359 nam = auxtnb ' SET POINTER TO ; 
: 1877 P 360 fop = tef i SET TO TRUNCATE TO END OF FILE ; 
; 1 2360 imagefab Cfab$w_ifi] = .lnk$gw_imgifi; ! JAM THE SAVED IFI : 
: 1881 2364 2 if not .Lnk$gl_ctlmsk Clnk$v_image] ' IF IMAGE DISABLED : 
; 1a See2 5 then image fab Cfab$v_dit] = true: ! THEN DELETE THE FILE : 
3 1884 2367 5 if not (errorcode = $close (fab=imagefab)) ! DO IT AND IF AN ERROR ; 
>; 1885 2368 then signal ( Lin$_closeout, 1 3 
> 1886 2369 » LnkSgl_imgfil Cfdb$q_filename) : 
3: 1887 2370 -errorcode, imagefab [fab$l_stv] : 
: 1889 33h $ LnkSqu_ingifi'= 0 ! CLEAR THE ID 
Ps n Mm = VU; : Ps 
D4 r rn tr - Py 
: 1892 oe: <n 
03FC 00000 -ENTRY LNKSCLOSIMGFIL, Save R2,R3,R4,R5.R6.R7,RB,~ : 2344 : 
59 000000006 00 9€ 00002 MOVAB LNKSGL_IMGFIL, R9 : : 
58 00000000' EF 9E 00009 MOVAB LNKSGW-IMGIFI, R8 3 : 
5E BO AE a Baie ty Phat 3 é 
56 69 26 0014 ADDL3 #38, LNKSGL_IMGFIL, R6 > 2353 : 
57 8 g 2 018 MOVZWL LNKS$GW_IMGIFI, R7 > 2355 : 
018 BEQL ; : 
0050 ««8F 00 bE 00 2c 910 MOVCS #0, (SP), #0, #80, SRMS_PTR ; 2361 ; 
6E 5003 i BO 00025 MOVW of 0483 SRMS_PTR : : 
04 AE 10000000 8F p OO2A MOVL #268435456, SRMS_PTR+4 ; ; 
16 AE 3 MOVE = #2, RMS _PiRsee : : 
1F AE 9 MOVB #2, SRMS_PTR+31 : : 
$8 AE 8 D A MOVL R6, S$RMS_PTR+40 3 3 
AE 3 MOVW R7, IMAGEFAB+2 3 2362 : 
05 00000000G 00 3 4 BLBS Lnegel CTLMSK, 1$ 3: 2564 g 
05 AE 80 BF 4 BISB2 #128, ITMAGEFAB+S : 2365 : 
—E DD 9 4F 1$ PUSHL SP > 2367 : 
00000000G 00 01 FB 0005 CALLS #1, SYSS$CLOSE ; 3 

| 


1 
13-32 -1984 00:00:24 AX-11 Bliss-32 Vv4.0-7 
1e28ee= 188s 93:20:85 «Een seeicaeumcouT 682: 1 
18 50 8 8 7 BLBS ERRORCODE 
0c Ar F A PUSHAB IMAGEFAB® Fie 
50 0D D PUSH Gane Ope 
7E 69 14 C1 FH ADDL age wt GL_IMGFIL, -<«&*) 
000000006 4 oD es PUSH f INS_C gecour 
000000006 00 05 FB ones CALLS LIBSSIGNAL 
68 84 000 $3: CLRW UNKSGW. IMGIFI 
04 00074 3$: RET 
; Routine Size: 117 bytes, Routine Base: S$CODE$S + 1696 
; 1893 2376 1 
; 1894 2377 0 end eludom 
-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 


SGLOBAL$ 128 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, negro Greg boo 1 
SOWNS 128 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 107 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 5899 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
» ABS . 0 NOVEC,NOWRT,NORD ;NOEXE,NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 


ercccece Symbols -------- Pages Processing 
File Total ilocos Percent Mapped Time 
_$255$0UA28: CSYSLIBILIB.L32;1 18619 187 1 1000 00:01.9 
“$255$DUA28: CLINKER.OB SADATBAS.L32:1 538 62 11 28 00:00.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:LNKIMGOUT/OBJ=OBJ$:LNKIMGOUT MSRC$:LNKIMGOUT/UPDATE=(ENHS$:LNKIMGOUT) 
; Size: 5899 code + 363 data bytes 

; Run "tims 1:56.4 

" clemned’ Tine: +33 -2 


Lines/CPU Min: 25 
; tenenes/CPU-Ain: 25962 
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Use 630 pages 
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